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PRODUCT CODE: AC-F 207A-MC 


PRODUCT NAME : CZVTOAO M7142 (SERIAL VIDEO BOARD) 
ACCEPTANCE TEST 


PROGRAM DATE: JANUARY 1979 
MAINTAINER: DIAGNOSTICS - MERRIMACK 


COPYRIGHT (C) 1979 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE 
ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION 
OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT 
AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
1TS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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ABSTRACT 


THIS PROGRAM IS AN ACCEPTANCE TEST OF THE M7142 SERIAL VIDEO BOARD. 
THE PROGRAM CONSISTS OF FIVE PARTS, ALL OF WHICH REQUIRE 

OPERATOR INSPECTION OR INTERACTION. THE PROGRAM IS CAPABLE 

OF HANDLING MULTIPLE UNITS IN A SEQUENTIAL DLV-11 FASHION (REF 8.2). 


ONLY ONE M7142 IS TESTED AT ONE TIME. 
evecerererererreereererereeeerereererererrererereeeeres 
THE PROGRAM WILL DEFAULT TO THE CONSOLE TTY (REF 5.0 AND 8.2). 
ALL CHARACTERS AND COMMANDS ARE TESTED. IN THE KEYBOARD. CHARACTER 
TEST THE BREAK, AND REPEAT ‘FUNCTION’ KEYS ARE NOT TESTED. 


PART 1 CONSISTS OF A SERIES OF TEST PATTERNS DISPLAYED ON THE 
SCREEN (REF 9. FOR DESCRIPTION). THE OPERATOR MUST VISUALLY 
INSPECT EACH TEST PATTERN FOR ERROR DETECTION. 


PART 2 1S A KEYBOARD CHARACTER TEST. THIS TEST IS TO DETERMINE 
THAT THE TERMINAL IS GENERATING THE EXPECTED ASCII CODES. 

IN THIS TEST AN OPERATOR WILL BE REQUIRED TO FOLLOW THE 
INSTRUCTIONS DISPLAYED ON THE SCREEN AND EXECUTE THEM. 

DUE 10 THE FLEXIBILITY OF DIFFERENT PROCESSORS OR OPTIONS, 

PARITY BIT TESTING MUST BE SELECTED BY THE OPERATOR. THE OPERATOR 
SELECTS THE TYPE OF PARITY TO BE TESTED BY Sw 00-01 


PART 3 1S A KEYBOARD OCTAL VALUE LOOP. —. A a IS DEPRESSED, 

THE OCTAL VALUE WILL BE DISPLAYED ON THE SCR 

If THE KEY DEPRESSED WAS PRINTABLE, IT WILL ALSO BE DISPLAYED 

ON THE SCREEN. — Tt INTING CHARACTERS (SUCH AS CTRL-C,CTRL-D... 
OR CR, LF...) N DEFINED’ IN THE PROGRAM SO IF ANY OF THESE 
KEYS ARE bePRESSED, ats TWO LETTER EQUIVALENT WILL BE DISPLAYED. 


PART 4 IS A KEYBOARD ECHO LOOP. WHEN A KEY IS DEPRESSED, THE 
CHARACTER IS ECHOED TO THE SCREEN. NO TESTING OF THE CHARACTER 

1S PERFORMED. THIS ALLOWS THE OPERATOR A ‘LOCAL’ MODE OF OPERATION 
BETWEEN THE M7142 AND THE HOST COMPUTER. 


PART 5 IS A CHARACTER ATTRIBUTE TEST (M.S.B. SELETECTED). A ae 
SCREEN OF FIVE BLOCKS (FIVE LINES EACH) IS PRINTED WITH ALTERNATE 
BLOCKS HAVING ANY ENABLED CHARACTER ATTRIBUTES SELECTED BY SETTING THE 
MOST SIGNIFICANT BIT (MSB) IN EACH OF THE CHARACTER CODES 

AS THEY ARE PRINTED. 


THIS TEST IS DESIGNED TO TEST THAT M.S.B.=1 IN THE CHARACTER CODE 
WILL CAUSE ANY ENABLED CHARACTER ATTRIBUTES TO BE SELECTED. 
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é. 


2.1 EQUIPMENT 


PDP-11 FAMILY COMPUTER WITH 6K WORDS OF READ/WRITE MEMORY 
M7142 SERIAL VIDEO BOARD WITH (SCREEN AND KEYBOARD) CONNECTED 
VIA A DLV-11 TYPE INTERFACE. 


- “FORM-FEED INIT.°’ MUST BE JUMPER ENABLED. 
- “S1/SO gow dy ATTRIBUTE SELECTION’’ MUST BE ENABLED 
IN ORD TEST ‘‘F*’ TO RUN CORRECTLY. 
- "WSB SET IN CHAR. CODE TO SELECT CHAR. ATTRIBUTE’ MUST BE 
ENABLED IN ORDER FOR TEST ‘™’’ TO RUN CORRECTLY. 
~ AT LEAST ONE CHAR. ATTRIBUTE MUST BE SELECTED FOR TESTS 
“F’’ AND ‘M’’ TO RUN CORRECTLY. 


oO 


STORAGE 
THIS PROGRAM USES 8K OF MEMORY. 


LOADING PROCEDURE 


OBNGALUN “SOBNO MP WNWoHODS 


PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED. 
STARTING PROCEDURE 


WwnN— 


CONTROL SWITCH SETTINGS 
STANDARD PDP-11 FORMAT 


(100000) HALT ON ERROR 
LOOP ON PRESENT TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT PROGRAM SUB-TEST DELAY 
SKIP KEYBOARD CHARACTER TEST (1) 
(001000) SELECT NON-DEFAULT (NON-CONSOLE ) 
ADDRESSES FOR 7142'S BEING TESTED 
(000400) LOOP ON TEST IN SWR <7:0> 


KEYBOARD CHARACTER TEST ONLY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


-—-OoO 


ENABLE PARITY at TEST 
EVEN PARITY CHECK 

ODD PARITY CHECK 
ALWAYS A 0 

$w00-01 ALWAYS A 1 


SPECIAL NOTE: IF THE COMPUTER UTILIZED 1S A LS] 11 OR A COMPUTER 
WITHOUT A SWITCH REGISTER, THE PROGRAM WILL UTILIZE LOCATIONS 
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174 AND 176 AS A “DISPLAY’ REGISTER AND A ot tae REGISTER 
RESPECTIVELY. THE OPERATOR WILL BE RESPONSIBLE FOR THE 
LOADING OF THE ‘SWITCH’ REGISTER LOCATION PRIOR TO STARTING 


OR RESTARTING THE PROGRAM. 





CZVTOAO MACY11 eine O9-JAN-79 08:55 PAGE 6 
CZVTOA.P11 09-JAN-79 08:54 


4.2 STARTING ADDRESS OR ADDRESSES 


S THE STARTING ADDRESS OF THE ACCEPTANCE TEST 
THE RESTART ADDRESS OF THE ACCEPTANCE TEST 
THE STARTING ADDRESS OF THE FULL KEYBOARD CHAR. TEST 
THE STARTING ADDRESS OF THE KEYBOARD OCTAL VALUE LOOP 
THE STARTING ADDRESS OF THE KEYBOARD ECHO LOOP 
THE STARTING ADDRESS OF THE CHARACTER ATTRIBUTE 
TEST (M.S.B. SELECTED) 


OPERATING PROCEDURE 


THE OPERATOR MUST INSERT = "Seat rien IN THE SWITCH 
REGISTER WHEN REQUIRED BY THE PROGRAM OR AN ERROR WILL OCCUR. 
ONCE STARTED, THE TEST WILL RUN IN ITS NORMAL MANNER 

WHICH INCLUDES THE EXECUTION OF A “‘QUICK*’ KEYBOARD TEST 

THAT REQUIRES OPERATOR INTERVENTION UNLESS Sw 10 IS SET 

IN THE SWITCH REGISTER. HOWEVER, IF Sw 10 IS NOT SET 

THE PROGRAM DOES ‘‘TIMEOUT’’ AND PRINT A ‘TIMEOUT MESSAGE" IF 

A KEY 1S NOT DEPRESSED IN A RESONABLE PERIOD OF TIME. 


If THE M7142 1S NOT THE CONSOLE TERMINAL WITH IT'S FIRST ge 
ADDRESS AT al -y THEN SW 09 MUST BE SET TO TELL THE PROGRAM 
WHERE IT 1S. Sw 09 MUST ALSO BE SET IF MORE THAN ONE M7142 

1S TO BE TESTED. 


169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
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ERRORS 


MOST ERRORS ~y' A: DETECTED . VISUAL INSPECTION OF + in ane 
PRINTED ON THE SCREEN. ONLY THE KEYBOARD TESTS RESULT IN AN 

ERROR REPORTING AND TYPEOUT. REFER TO THE "ERROR POINTER TABLE" 
FOR TYPE AND DESCRIPTION OF ERRORS. 

THE ERROR INFORMATION CONSISTS OF THE FOLLOWING: 


ERRPC = LOCATION AT WHICH AN ERROR WAS DETECTED 

VTINOW = CURRENT DLV-11 rt ADDRESS OF M7142 UNDER TEST 
TSTNUM- TEST NUMBER OF FAILING TEST 

EXPT = EXPECTED INPUT CHARACTER 

RCVD = RECEIVED INPUT CHARACTER 


RESTRICTIONS 


THE OPERATOR SHOULD SET Sw 09 IF THE M7142 UNDER TEST 
1S NOT THE CONSOLE TTY, OR NOT AT THE ADDRESS = 177560. 


et ed ee ed ced 
COBNOnFUN=OoSs 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
22 


MISCELLANEOUS 


EXECUTION TIME 


EXECUTION TIME WILL VARY WITH THE “BAUD'’ RATE, THE PROGRAM 

WILL TYPE ‘END PASS" ON THE CONSOLE WHEN A PASS HAS BEEN COMPLETED. 
THE KEYBOARD LOOP AND CHARACTER TEST WILL NOT EXIT UNTIL 

THE PROGRAM IS RESTARTED. 


DEVICE ADDRESS PROGRAM LOCATIONS (AT APPROX. 1222) 


THE LOCATION "’FIRST’* CONTAINS THE FIRST DLV11 ADDRESS IF SEVERAL M7142°S 
ARE BEING TESTED. THE DEFAULT IS THE CONSOLE ADDRESS <177560> 

THE LOCATION "LAST" CONTAINS THE LAST DLV11 ADDRESS IF SEVERAL M7142'S 
ARE BEING TESTED. LOCATION "‘VTNOW'* CONTAINS THE CURRENT DLV11 BASE 
ADDRESS. IF SEVERAL M7142°S ARE BEING TESTED, THEIR ADDRESSES ARE 
ASSUMED TO BE 10 OCTAL BYTES APART. 


"NOTE: IF THE LOCS. ‘FIRST’ OR “‘LAST’’ ARE CHANGED, THE OPERATOR MUST 
START THE TEST AGAIN AT LOC. 200. THE PROGRAM WILL USE THE BASE 
ADDRESS TO UPDATE THE ACTUAL PROGRAM VALUES. 
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PROGRAM DESCRIPTION <SCREEN> 


FULL SCREEN OF THE LETTER E 


THIS TEST WILL FILL THE SCREEN WITH THE LETTER E. 
THIS TEST WILL LOAD THE SCREEN RAM WITH A SINGLE 
CHARACTER IN ALL LOCATIONS. THIS TEST IS USED TO 
VISUALLY CHECK THE LINEARITY AND CENTERING OF THE 
M7142/CRT SYSTER. 


SIMPLE CHARACTER SET 


ONE FULL LINE OF EACH CHARACTER 

(CODES 40 THRU 176) OF THE CHARACTER 

SET. THIS WILL ALSO TEST THAT ALL WORDS 

IN THE SCREEN RAM CAN BE LOADED. 

THIS WILL ALSO EXERCISE THE SCROLLING FUNCTION. 


1E: AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


BBBBBBEB BB. 
CCCCCCCCCCCCCCCCCCCCCCCCCccccccecccccccc 
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 


INCREMENTING AND SLIDING CHARACTER SET 


ONE FULL LINE OF AN INCREMENTING 
CHARACTER SET ACROSS THE FULL SCREEN 
STARTING WITH THE CODE 40 (SPACE) 

THE NEXT LINE SHOULD BEGIN WITH THE 
"*t** CHARACTER (CODE 41) ETC. CONTINUE 
THE PATTERN BY INCREMENTING THE 

FIRST COLUMN CHARACTER UNTIL THE 

FULL CHARACTER SET HAS BEEN EXHAUSTED. 


THIS PATTERN WILL VERIFY THAT THE FULL 
CHARACTER SET CAN BE DISPLAYED IN EACH 
SCREEN WORD. 
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9.4 D 


CURSOR MOTION TEST (CR,TAB,LF ,BKSP,VT USED) 
(FORM-FEED INITIALIZED) 


THIS TEST IS THE BASIC CURSOR MOTION TEST USING THE 
CARRIAGE-RETURN, TAB, LINE-FEED, BACKSPACE, AND VERTICAL 
TAB CAWRACTERS. 


THE FIRST PART OF THE TEST PRINTS A LINE OF TEXT, 
“CARRIAGE-RETURN'S*’ BACK TO THE LEFT MARGIN AND THEN 
““TAB'S*’ OVER THE TEXT TO BE SURE A ‘TAB’ DOESN'T 
ERASE CHARACTERS. 


THE SECOND PART OF THE TEST MOVES THE CURSOR DOWN BY 
PRINTING SOME LINE-FEEDS, PRINTS A MESSAGE, AND THEN 
BACKSPACES OVER THAT MESSAGE TO BE SURE A BACKSPACE 
DOES NOT ERASE CHARACTERS. 


THE THIRD PART OF THE TEST DOES A SERIES OF 
VERTICAL TABS TO BE SURE THAT A VERTICAL TAB ADVANCES 
THE CURSOR DOWN THE SCREEN ONE LINE. 


THE FOLLOWING DIAGRAM IS WHAT THE SCREEN SHOULD LOOK LIKE 
WHEN THE TEST 1S COMPLETE: 


+ TAB OVER-NO CHARACTER ERASE <CR><CR> + 
+<LF> + 
4 <LF> + 
+ <LF> + 
+<CR> <CR><LF> BACKSPACE OVER-NO CHAR. ERASE + 
+<vT> + 
+ <vT> + 
+ <vT> + 
4 4 
+ <VT><CR> + 
+ + 
+ 4 


NOTE: “‘FORM-FEED-INIT.** FUNCTION MUST BE ENABLED. 


SEQ 0008 
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DIRECT CURSOR ADDRESSING (D.C.A.) FORM-FEED INITIALIZED 


THIS TEST WILL BE RUN USING THE “ESC-Y"" SEQUENCE. 

THIS TEST WILL RANDOMLY FILL THE SCREEN. 

THE END RESULT WILL BE A FULL SCREEN OF 25 STATEMENTS, 
EACH STATEMENT ROTATED RIGHT ONE CHAR. WITH RESPECT 
TO THE LINE ABOVE IT. 


NOTE: “*FORM-FEED-INIT."" FUNCTION MUST BE ENABLED. 


—s ATTRIBUTE TESTS (SO/SI SELECTED) 
(FORM-FEED INITIALIZED) 


THIS TEST PRINTS A FULL SCREEN OF FIVE BLOCKS (FIVE LINES EACH) 
WITH ALTERNATE BLOCKS HAVING ANY ENABLED CHARACTER ATTRIBUTES 
SELECTED USING A "’SO (CNTRL-N)*’ TO SELECT CHAR. ATTRIBUTES AND 
""S1 CCNTRL-0)" TO DESELECT CHAR. ATTRIBUTES. 


NOTE: THE ABILITY TO SELECT CHAR. ATTRIBUTES USING SO/S1 
AND AT LEAS? ONE CHAR. ATTIBUTE MUST BE ENABLED. 


SCROLL SPEED JUMP TESTS (FORM-FEED INTIALIZED) 


THIS TEST USES SETS OF VERTICAL TABS TO TEST THE 
SCROLLING ABILITIES OF THE M7142. THE SCREEN IS 

FIRST FILLED WITH 25 LINES OF SINGLE CHARACTERS ACROSS 
A OL E ALL A'S AND 


LINE SHOULD BE A SERIES OF Y°S AND A SCROLL COUNT 
AT THE RIGHT END OF THE LAST LINE. THEN 3 SETS OF 25 
VERTICAL TABS ARE SENT (WITH A DELAY BETWEEN SETS) TO SEE 
If THE SCREEN SCROLLS CORRECTLY. AFTER EACH SET OF VERTICAL 
TABS, THE TOP LINE SHOULD STILL BE ALL A'S , BUT NOW THE BOTTOM 
ta, Bo BE A SERIES OF Y°S AND THE “‘SCROLL-COUNT"’ WILL BE 


COLUMN ADDRESS TEST 
THIS TEST PRINTS 25 LINES OF A FULL LINE OF AN INCREMENTING 
CT EACH LINE STARTS WITH THE CHARACTER ‘'/** 
123456789: ;<'' AND SO ON SO THAT EACH COLUMN ON THE 
SCREEN IS FILLED WITH A SINGLE CHARACTER. 


THIS PATTERN WILL VERIFY THAT EACH COLUMN IS UNIQUELY ADDRESSABLE. 


"“QUICK*’ KEYBOARD CHARACTER TEST 





CZVTOAO MACY11 whey 
CZVTOA.P11 


387 


09-JAN-79 


O9-JAN-79 08:55 PAGE 11 
08:54 


9.10 J 


9.11 K 


9.12 L 


9.13 M 


If Sw 10 1S SET (=1,) THEN THIS TEST 1S NOT EXECUTED. 


THIS IS A PARTIAL TEST IF THE KEYBOARD eee a IN EVERY 
PASS OF THIS ACCEPTANCE PROCEDURE TO PROVIDE A QUICK CHECK 
OF THE KEYBOARD ont pore Sw 10 IS SET. SW 0 AND 1 
HAVE THE SAME USE A at THE FULL-BLOWN KEYBOARD CHARACTER 
TEST. THE FULL-BLOWN TEST SHOULD BE RUN TO ADEQUATELY CHECK 
THE KEYBOARD. (SEE SECTION 9.10). 


ONLY PRINTING CHARACTERS ARE ECHOED AS THE KEYS ARE PRESSED. 


FULL KEYBOARD CHARACTER TEST 


THIS TEST IS DESIGNED TO VERIFY THAT CORRECT CHARACTER CODES 
AND PARITY BIT ARE GENERATED WHEN A KEY IS DEPRESSED. 

THIS TEST REQUIRES THE OPERATOR TO EXECUTE THE 

INSTRUCTIONS DISPLAYED ON THE SCREEN. THE OPERATOR SHOULD 
ONLY DEPRESS ONE KEY AT A TIME, WITH SOME EXCEPTIONS. 

THE PROGRAM WILL INFORM THE OPERATOR WHICH ROW TO TEST. 

ONLY PRINTING CHARACTERS ARE ECHOED AS THE KEYS ARE PRESSED. 


IN TESTING THE PARITY BIT, SW 0 AND 1 ARE USED T 
INFORM THE PROGRAM OF THE EXPECTED PARITY. AN INCORRECT 
SWITCH SETTING WILL RESULT IN AN ERROR. 


KEYBOARD OCTAL VALUE LOOP 


THIS LOOP 1S PROVIDED TO ENABLE THE OPERATOR 

TO EXAMINE THE OCTAL VALUE OF A CHARACTER. WHEN A KEY IS 
DEPRESSED, THE OCTAL VALUE WILL BE DISPLAYED. 

IF THE CHARACTER WAS A PRINTABLE CHARACTER, IT WILL As DISPLAYED. 
THOSE CODES DEFINED AS CONTROL’ WILL BE DISPLAYED AS A 

TWO LETTER MNEMONIC (IE. DE=DELETE. BL=BELL, CL=CURSOR LEFT ETC.) 


KEYBOARD ECHO LOOP 


WHEN A KEY IS DEPRESSED, THE CHARACTER WILL BE DISPLAYED. 
NO MODIFICATION OR DATA TEST IS PERFORMED. THIS TEST CAN 
BE USED TO DETERMINE JF THERE IS A ‘UART’’ OR SERIAL 

LINE PROBLEM. 


CHARACTER ATTRIBUTE TEST (M.S.B. OF CHAR. CODE SELECTED) 


THIS TEST IS STARTED BY USING A tk ge STARTING ADDRESS 

AND IS 13 he TO TEST THAT SETTING THE M.S.B. OF THE CHARACTER 
CODES SENT TO THE M7142 WILL CAUSE ENABLED 

CHARACTER ATTRIBUTES TO BE DISPLAYED. 


A FULL SCREEN OF FIVE “BLOCKS' (FIVE LINES EACH) IS PRINTED 
WITH ALTERNATE BLOCKS HAVING ANY ENABLED CHARACTER ATTRIBUTES 


SEQ 0010 
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SELECTED USING "H.S.B.°° ON EACH OF THE CHARACTERS AS THEY ARE 
PRINTED. 


NOTE: THE ABILITY TO SELECT CHARACTER ATTRIBUTES USING 
hn AND AT LEAST ONE CHAR. ATTRIBUTE MUST BE 
LeD. 
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-TITLE CZVTOAO 
s*COPYRIGHT (C) 1978 
:*DIGITAL EQUIPMENT CORP. 
3 SRATHARD , MASS. 01754 


!SPROGRAR BY DIAGNOSTIC ENGINEERING 


i eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s*PACKAGE (MAINDEC-11-DZQAC-C35), JAN 19, 1977. 


- 
-SBTTL BASIC DEFINITIONS 


s*INITIAL ADDRESS OF THE STACK POINTER *#* 1100 eee 
001100 STACK= 1100 
-EQUIV EMT, ERROR ;:BASIC DEFINITION OF ERROR CALL 
EQUIV I0T,SCOPE ::BASIC DEFINITION OF SCOPE CALL 


cs | ame DEFINITIONS 
11 z CODE FOR Vy TAB 
CODE FOR LINE FEED 
3 3 CODE FOR CARRIAGE RETURN 
000200 200 sCODE FOR CARRIAGE RETURN-LINE FEED 
177776 PROCESSOR STATUS WORD 


177774 :3STACK LIMIT REGISTER 

177772 ::PROGRAM INTERRUPT REQUEST REGISTER 
177570 ; HARDWARE SWITCH REGISTER 

177570 177570 ; sMARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 RAL 


R= 

R2= 

R3= 

R4= 33 

R5= > GENERAL REGISTER 
R6= 7:GENERAL REGISTER 
R7= 3;GENERAL REGISTER 
SP= 7;STACK POINTER 
PC= 3:PROGRAM COUNTER 


:*PRIORITY LEVEL DEFINITIONS 
PRO= 0 


::PRIORITY 
7: PRIORITY 
> ;PRIORITY 


3*'"SWITCH REGISTER’ SWITCH DEFINITIONS 
$Sw15= 100000 


NOW SEM —O 


0200 
010000 SW12= 
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33 8 


ea ee aed et 
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@Oawmoowowoqoaw 
eat aan ae ee a en ae 


*_ fs es: + &hUhehUhh Se 6% 


B1100,8110 


:*BASIC “CPU TRAP VECTOR ADDRESSES eet 
000004 ERRVEC= ;TIME OUT AND OTHER ERRORS. ~ 
RESVEC= 10 {RESERVED AND ILLEGAL. INSTRUCTIONS 
TBITVEC=14 BIT 
000014 TRIVEC= 14 SE TRACE. TRAP 
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BASIC DEFINITIONS 


’ BPTVEC= 14 ; ;BREAKPOING TRAP (BPT) 
T/OUTPUT TRAP (JOT? *#SCOPE** 


R FAIL 
MULATOR TRAP (EMT) **ERROR*®* 
2 TRAP TRAP 
sstyy 6 KEYBOARD VECTOR 
64 7: TTY PRINTER VECTOR 
PIROVEC= 240 3:PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT SUB-TEST DELAY'S 
SKIP KEYBOARD CHARACTER TEST 
SELECT NON-CONSOLE ADDRESS 
LOOP ON TEST IN SWR<7:0> 


-SBTTL TRAP CATCHER 


.=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘*.42,HALT" 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
s*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


7174 
DISPREG: .WORD 0 7: SOFTWARE DISPLAY REGISTER 
SWREG: WORD 0 ; SOFTWARE SWITCH REGISTER 
- SBTTL ene ADDRESS(ES) 
@#BEGIN ;; JUMP wt ak a ADDRESS OF PROGRAM 
IN P TO RESTART ADDRESS 
SUMP TO FULL KEYBOARD CHAR. TEST 
; JUMP TO CHAR whe VALUE LOOP 
; JUMP TO ASCII] ECHO LOOP 
JMP BEG! ;JUMP TO CHAR. ATTRIB. TEST (BIT7 SELECT) 
-SBTTL ACT11 HOOKS 
PREM AAAAASAAAK AAA AEA A ETAT ARATE EAE RAATAAAKAR KAKA eKeeeeee 
HOOKS REQUIRED BY ACT11 
$SV : SAVE PC 


2;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


:22)SET Loc. rt TO ZERO 
3; RESTORE 


SEQ 0014 
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-SBTTL COMMON TAGS 


s,etererereererererererreerrrerrerererrererrererereeeeeeeeereeeeee 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s*USED IN THE PROGRAM. 


SCRTAG: : s:START OF COMMON TAGS 
; CONTAINS PASS COUNT 
THE TEST NUMBER 


ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 

SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
ERRORS PER TEST 
; AINS PC OF LAST ERROR oe 
: CONTAINS ADDRESS OF ‘GOOD’ DAT 
ONTAINS ADDRESS OF "BAD" DATA. 
TAINS ‘GOOD’ DATA 


ii TAINS *BAD' DATA 
S:RESERVED--NOT 10 BE USED 


: AUTOMATIC MODE INDICATOR 
:: INTERRUPT MODE INDICATOR 


7 :ADDRESS OF SWITCH REGISTER 

ADDRESS OF DISPLAY REGISTER 

3: TTY KBD STATUS 

3: TTY KBD BUFFER 

7: TTY PRINTER STATUS REG. ADDRESS 

hha PRINTER BUFFER REG. ——- 

33 CONTAINS NULL CHARACTER FOR FILLS 
sCONTAINS # OF FILLER CHARACTERS REQUIRED 

73 INSERT FILL CHARS. AFTER A “LINE FE 
:""TERMINAL AVAILABLE"’ _ (B11<07>=0=YES) 

CONTAINS THE ADDRESS FROM 

s:WHICH (SREGO) WAS OBTAINED 

3;CONTAINS (($REGAD) +0) 

::CONTAINS (($REGAD)+2) 

3; QUESTION MARK 

>; CARRIAGE RETURN 

:;LINE FEED 


pp eteeeererereerererertereereereeteeeeeeeeeeeeeneeeeeeeeReekeRere 


oooooceoo°oo—-Ccoo°o°o°o°oo 


.= 
nr 
c 
@ 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


Rae ee ee ee nn nn ee ee ee ee er er er er er Or Or Or Or Oe Or Oe Or Or Or Or Or Or Ot 
Ns — — — se 
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-SBTTL ERROR POINTER TABLE 


s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
s*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE Ha | 1S PERTINENT. 

; *NOTE1: If SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERR 

; *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


: POINTS TO THE ERROR MESSAGE 


; E DATA 
::POINTS TO THE DATA FORMAT 


sERROR FLAG ON HOST TRANSMIT STATUS 
sERRPC VINOW TSTNUM 
sSERRPC VINOW TSTNUM 


:NO HOST INPUT FLAG RECEIVED 
sERRPC VINOW TSTNUM 
;SERRPC VINOW TSTNUM 


; INCORRECT OR UNEXPECTED INPUT CHARACTER 
DH3 ;ERRPC VINOW TSTNUM EXPT  RCVD 
the ;SERRPC VINOW TSTNUM SGDDAT SBDDAT 


177560 sFIRST DEVICE ADDRESS OF SEQUENTIAL DLV-11-A/B TYPE DEVI 
sDEFAULT TO THE CONSOLE AD S 

0 sLAST DEVICE ADDRESS OF DLV-11-A/B TYPE 

177560 :CURRENT DEVICE BUS ADDRESS 

0 sERROR PATTERN 


: ; CHARACTER FLAG ha pee CONSTANT 
: ;SUBTEST DELAY CONSTAN 
LAST VALID LINE # 10. 
; TOTAL CHARACTER COUNT 
VERTICAL LINE COUNT 
31/2 VERTICAL LINE COUNT 
21/4 VERTICAL LINE COUNT 


sDEVICE ADDRESSES 
7 IN DATA 
sOUT STAT 


OUT DATA 
7 TEMP REG'S 
;FIRST NON-VALID CHARACTER 


moO — = OC annw~au 
° woo 
-_ © 


LASTCH: 
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000000 TEMPO: ; 
000120 WIDTH: ° :COLUMN WIDTH 
000000 SAVES: 0 "TYPE TITLE GET DEVICE INFO’’ INDICATOR 


002110 BEGIN: ao STARTING ACCEPTANCE TEST ADDRESS 


B Gl 
001250 RBEGIN: PRICN ;RESTART ADDRESS 
002112 002110 #1ST1 » WHERE 


N 
004606 002110 BEGINS: ——— sSTART AT ECHO LOOP 
004052 002110 BEGINI: ee STARTING KEYBOARD CHAR. TEST ADDRESS 
004644 002110 BEGIN: ———— STARTING CHARACTER ATTRIBUTE (B11T8) ADDRESS 


004316 002110 BEGIN2: @KRBECO,WHERE ;STARTING CHARACTER LOOP ADDRESS 
000001 001272 GIN: #1, SAVE4 


T 
INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 
001100 #0 aa AG ,R6 zFIRST LOCATION TO — 


(R6)+ :;CLEAR MEMORY LOCATI 
001140 #SWR,R6 ; ;DONE? 
_ -~6 ;;LOOP BACK IF 


NO 
001100 #STACK ,SP ;;SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 

014550 #SSCOPE ,a# 1OTVEC 33307 VECTOR FOR SCOPE ROUTINE 
000340 000022 #340 ,a#1OTVEC+2 ;;LEVEL 7 

SSERROR QSERNTVEC ; EMT VECTOR FOR ERROR ROUTINE 

#340 ,Q#EMTVEC+2 ;;LEVEL 7 

#STRAP ,ASTRAPVEC TRAP VECTOR FOR TRAP CALLS 

A nat dy we ate LEVEL 7 

@sPURVEC io FAILURE VECTOR 


:] SETUP END-OF -PROGRAM COUNTER 
001106 MOV #. ,SLPADR ; INITIALIZE be LOOP ADDRESS FOR SCOPE 
SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘*=1°', SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @PERRVEC,-(SP) ;;SAVE ERROR VECTOR 
000004 #648, a#ERRVEC 33SET UP ERROR VECTOR 
#OSWR, SUR SETUP FOR A HARDWARE SWICH REGISTER 
#0D1SP , DISPLAY $$ AND A HARDWARE DISPLAY py 
fen’ »aSuR 


geggeges a2 


sessss 
ho ot ee 
=—MNMNNUW 
onan NNN 


-9o —NwUAS 


NNNNOw NRNNNNO 


65$ H IF NO TIME 
001560 : #65$, (SP) ESET UP FOR TRAP RETURN 
000176 : #SWREG, SWR og Oe TO SOFTWARE SwWR 
000174 #01SPREG,DISPL 
000004 : (SP)+, SHERRVEC " , :RESTORE ERROR VECTOR 


005172 IGNORE 


Oonrmo Gonvnstorw 
So 
—- 
~ 
~“N 


sessse seeess 


So 

Ss 8 

— — 

WPwm FE wt 
~ — 

S 28S 

oe ooo 

oOo — 

w Mrot 

So CN™ 

S wet 
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C LOOP 
000020 #ASCOPE ,a# 1OTVEC 
T SAVES sTEST FLAG 
SBEGIN :BR IF NON-ZERO 


177302 IT #B1T9,aSwR 
:BR IF CLEARED 


000004 ;SET UP SLAVE TIMEOUT 
000006 #340.6 ;LOCK OUT ANY INTERRUPTS 


sFIND OUT THE DEVICE ADDRESS 


(SP)+, FIRST SAVE THE ADDRESS 
001222 #160000 FIRST 
11$ :BR IF INVALID 


177320 @F IRST sTEST IF VALID 
001224 LAST 


:FIND OUT THE LAST ADDRESS 


001224 (SP)+,LAST SAVE LAST ADDRESS 
177300 AST ;TEST IF VALID 
000006 000004 


000006 
SBEGIN 
12$: (SP)+,(SP)+ ADJUST STACK FROM TIMEOUT 


: INVALID ADDRESS MESSAGE 
B 11$ LET OPERATOR HAVE ANO TRY 
001222 001226 SBEGIN: FIRST, VTNOW ;LOAD INITIAL DEVICE ADDRESS 


001252 RSTRT: #VTIS,RO ;LOAD POINTER 
001226 AO ;LOAD INPUT STAT 
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S | 


001240 : #2000. , TOTALC LOAD TOTAL CHARACTER COUNT 
001242 #25..,VHO LOAD MAX VERTICAL LINE COUNT 
001236 #70,LASTLN ;LOAD LAST LINE VALUE #40 FOR DCA TESTING 
001244 : MOV —_—— LOAD OTHER LINE COUNTS 
001246 ———— 
VH 
001264 #177, LASTCH LOAD FIRST NON-VALID CHARACTER 
R5, AMSG : INIT THE DEVICE WITH A FORM-FEED 


PC, ADELAY ;WAIT FOR FORM-FEED TO FINISH 
R5, AMSG sPRINT TITLE OF DIAGNOSTIC 


PC DELAY 
@WHERE 


C2 Co 09 Cp OD CD CD CD CD 

— ss —* Ls ss os — — 

BNC USWN—O 
— —_ —t —» — 
MmOwW 

WWD Www 


3 


S32 
— 
_ 
VNNW NRNNN NNN 


3 


—=NINMWWOWwW Ww 
NNNONNYN ONS ONS 


ese 


Jn 
WHERE: TST1 


= 


se eeeeereterrererreereeeeeeeereeteeeeeeeAteAeeeKeKeeeeeKeeeeeeees 


s*TEST 1 & FULL SCREEN OF A CHARACTER 


peeeeererrererrerereeerererrerereerreneereKeeeeeKeeKeeeeTeeereee 
ist: SCOPE 
005340 R5, AMSG 


i 
FILLWC: #°E,RI ;LOAD CHARACTER BYTE 
J PC,F ILBUF ;LOAD THE LINE WITH CHAR 
002162 0,108 ; T 


;LOAD COUN 
005160 : : INSURE XOFF/XON CONTROL. 
DISPLAY THE LINE 


;LOOP UNTIL DONE 
XIT 


gssee 
—mF rw 
°o 
at 


2: 


: 0 
005214 : PC DELAY 


3 


pe eeteneerererrrereteerereeeeteeterteeeRKKeeeeareteeeeeeKeeeARese 
SSTEST 2 B SINGLE CHARACTER ACROSS ALL COLS. <ALL CHARACTERS> 
peeeeeereerereeerererereterteeeeeeeeeeeKeReeakereereekeeKereeree 
té12: 
005340 JSR R5,AMSG sDISPLAY HEADING 


000040 001262 #40, STCHAR :SET-UP STARTING CHARACTER 
001266 vHO, TEMPO ;LOAD COUNT 
STCHAR ,R1 LOAD R1= TO CHARACTER 
PC,FILBUF ;LOAD A BUFFER WITH THAT CHARACTER 
PC ,XPRNT ee A FULL LINE FROM THE BUFFER 
001266 TEMPO 
2% SPINTSHED 
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CZVTOA.P11 


S825 


oooowooouovovlno 
Ay wet et et te et et os ot ot we 
SOON WFwN—O 


_—_—Ooo 
— — = 
rmrnr 


S35 


o-oo 
—— oe 


005214 


005340 
005266 
005340 


022066 
012540 


005056 
005214 
022066 
012654 


005056 
005214 


001266 
001262 


001262 
001266 


001266 
001262 
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H 2 
SINGLE CHARACTER ACROSS ALL COLS. <ALL CHARACTERS> 


PC DELAY 
vind, TEMPO 


STCHAR 
ee 


PC DELAY 


sUPDATE THE CHARACTER 
TEST FOR FINAL CHARACTER 
:BRANCH IF NOT COMPLETED 
sTEST DELAY SWITCH 


so eteeerereererererererererrrrerrerekerereneearereeeeeeeeeeeeeeees 


C ROTATING CHARACTERS ACROSS ALL COLS. <ALL CHARACTERS> 


s, eeererererrererenrrerereerererrerrrekeeeaeaeeereeneeeeteeeeeeees 


s*TEST 3 


TST3: 


R5 AMSG 


#40,STCHAR 
vHO, TEMPO 

STCHAR,R1 

R5,LIC 


PC ,XPRNT 
TEMPO 


HAR 
ASTM, STCHAR 
1$ 


PC DELAY 


DISPLAY HEADING 


SET-UP STARTING CHARACTER 
;LOAD TEMP 

;LOAD R1=TO CHARACTER 

LOAD A BUFFER STARTING WITH 

; THAT CHARACTER AND WIDTH <BYTE> 
:DISPLAY A FULL LINE FROM THE BUFFER 


ON 
:BR IF YES 


UPDATE THE STARTING CHARACTER 
:TEST FOR FINAL CHARACTER 
BRANCH IF NOT COMPLETED 

TEST DELAY SWITCH 


PPAR AARAKH AAAS KASH AE AKT ATH TAHA EAAAAAAEAEAREARAAEReKeeeeeeeeee 


D CURSOR MOTION TEST (FORM-FEED INIT USED) 


peteeererererrererererererererereeeeeereeeeekekekaeeeeetereReeee 


:#TEST 4 


iST4: 


MOVBSP: 


2$: 


R5 AMSG 


PC,ADELAY 
R5 AMSG 


#BUFFER,RO 
#ATAB,R 
(R1)+,(RO)+ 
1$ 


PC, XPRNT 
PC DELAY 


#BUFFER,RO 
#MBKSP RI 
(R1)+,(RO)+ 
2$ 


PC, XPRNT 
PC DELAY 


sERASE-SCREEN (FORM-FEED INIT.) 


sWAIT FOR FORM-FEED INIT TO FINISH 
:DISPLAY HEADING 


;LOAD POINTER TO BUFFER 
; LOAD POINTER TO TAB MESSAGE 
;PUT TAB MESSAGE INTO BUFFER 


DISPLAY THIS LINE 
: TEST DELAY SWITCH 


;LOAD POINTER TO BUFFER 
;LOAD POINTER TO BACKSPACE MESSAGE 
;PUT MESSAGE INTO BUFFER 


:DISPLAY THIS LINE 
:TEST DELAY SWITCH 


SEQ 0020 
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CZVTOA.P11 09-JAN-79 08:54 CURSOR MOTION TEST (FORM-FEED INIT USED) SEQ 0021 
921 002464 012700 022066 MOVVT: MOV #BUFFER,RO sLOAD POINTER TO BUFFER 
922 002470 012701 013006 MOV #AVT.RI ;LOAD POINTER TO VERT. TAB MESSAGE 
923 002474 112120 38: MOVB = (R1)#, (ROD + [PUT VERT. TAB MESSAGE INTO BUFFER 
924 002476 100376 BPL 3$ 
925 002500 004737 005056 JSR PC, XPRNT sDISPLAY THIS LINE 
926 002504 004737 005214 JSR PC.DELAY [TEST DELAY SWITCH 
928 
929 
930 
931 
932 ,teeeeeerererererreerrerererererereereeeeeeeereeeteneeererAeeeeee 
933 :#TEST 5 E DIRECT CURSOR ADDRESS TEST (FORM-FEED INIT USED) 
934 ;eeeeeeerereereerereererereeeeereeeeereeeeeeReeeeereenaeeeAeeeee 
935 002510 000004 i815: SCOPE 
3 
938 ;RANDOM NUMBERS ARE GENERATED AND USED AS ‘'x"’ AND ‘‘Y'’ COORDINATES 
939 sADDRESSING A 2000 CHARACTER PRINTOUT. 
940 ;VERFICATION OF DISPLAY 1S PERFORMED VISUALLY BY THE USER 
oe} sUSING THE ‘‘ESC-Y"’ SEQUENCE. 
943 002512 004537 005340 4$: JSR RS, AMSG 
944 002516 011205 FRMFED 
945 002520 004737 005266 JSR PC ,ADELAY sWAIT FOR FORM-FEED INIT TO FINISH 
946 002524 004537 005340 JSR RS, AMSG s IDENTIFY TEST 
947 002530 011136 "98 
948 002532 112737 000033 022066 MOVB #33,BUFFER sLOAD “'ESC'’ CODE 
949 002540 112737 000131 022067 MOVB #'Y,BUFFER*+1 | :LOAD ASCII "Y'’ (D.C.A. ENABLE) 
951 002546 012737 123456 015702 DCATST: MOV #123456,SLONUM ;PRIME RANDOM NUMBER GENERATOR 
952 002554 012737 176543 015700 MOV #176543, $HINUM 
953 002562 013737 001240 003030 MOV TOTALC,OVRAL § ; LOAD CHAR COUNT 
002570 012700 022106 MOV #BUFFER+20,RO :LOAD DESTINATION BUFFER 
955 002574 012701 016142 2$: MOV #MSGTXT,RI [LOAD MESSAGE POINTER 
002600 012120 1$: MOV (R1)#, (RO)* [LOAD 2 CHARACTERS 
957 002602 122711 000377 CMPB 0s #377, (R1) [TEST FOR LAST CHAR 
958 002 001374 BNE 18 [BR UNTIL DONE 
959 002610 012737 177777 022072 MOV #-1,BUFFER+4 | :LOAD MESSAGE TERMINATOR (IN 4&5) 
961 002616 004737 015602 GENER: JSR PC, SRAND ;GENERATE RANDOM NUMBER 
962 002622 013700 015700 MOV SHINUM,RO GET RANDOM NUMBER 
963 002626 042700 177700 BIC #177700,R0 :RANDOM NO. MUST BE at DIGITS 
964 002632 020027 000037 CMP RO, #37 :NO, MUST BE LESS THAN 40 
965 002636 101767 BLOS GENER LOWER, REGENERATION 
966 002640 020037 001236 CMP RO,LASTLN :NO, MUST NOT BE GREATER THAN 70 
967 002 101364 BHI GENER [GREATER, REGENERATION 
968 002 010037 003022 MOV RO, YADDS [STORE RANDOM Y COORDINATE 
969 002652 010001 MOV RO.R1 [COPY DATA 
970 002654 012737 022106 003026 MOV #BUFFER+20,SET LOAD BASE POINTER 
971 002662 162701 000040 SUB #40,R1 sMINIMUM Y INDEX 
972 002666 001405 BEQ GENRX [RESULT, MINIMUM Y COORDINATE 
973 002670 062737 000120 003026 15: ADD #80. ,SET :SETUP Y INDEX LOCAT!ON FOR PRINTOUT 
974 002676 005301 DEC R1 
975 002700 001373 BNE 1$ :Y COORDINATE IS SET 
976 002702 004737 015602 GENRX: JSR PC, SRAND [GENERATE RANDOM NUMBER 


J 2 
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CZVTOA.P11 09-JAN-79 
NUMBER 
MAY BE LESS THAN 200 
S THAN 40 


GENERATION 
: NOT BE GREATER THAN 157 
sGREATER, REGENERATION 
; E RANDOM X COOR 


Sad 
<s 


CHECK 
sHAS CURRENT CHAR, ALREADY BEEN USED? 

GENER sYES, REGENERATE 
003022 022070 YADDS ,BUFFER*2 ;LOAD Y COORDINATE 
003024 022071 XADDS ,BUFFER*+3 ;LOAD X COORDINATE 
022072 (R1),BUFFER+4 ;LOAD CHARACTER TO BE PRINTED 

(R1) s INDICATE USE OF CURSOR POSITION 
005056 PC ,XPRNT sEXECUTE AND PRINT CHARACTER 
003030 OVRAL ;MAXIMUM NO. OF COORDINATES 

GENER :BR BACK UNTIL DONE 


005214 PC DELAY :DELAY TESTING 
003032 TST6 :SKIP OVER STORAGE LOCS. TO NEXT TEST 


a ee 
haw 
~ 
oS 
aes NO = 


YADDS: 
a 


SET: 
OVRAL: 


SSS3S3 


Ss, eeeeraeeererereeeeeeeeeeeeeeeeseeeeeeeeeeeeeeeeKeekekeeekereeee 


T*TEST 6 F CHARACTER ATTRIBUTE TEST (SI-SO SELECT) 
RPT i titi iii ttigit iii iii tifii titi titi 
TST6: SCOPE 

005340 JSR R5, AMSG ERASE AND INIT SCREEN WITH FORM-FEED 


005266 JSR PC, ADELAY sWAIT FOR FORM-FEED TO FINISH 
005340 JSR R5, AMSG DISPLAY HEADER 


005340 R5, AMSG ;SELECT ANY ENABLED CHAR. ATTRIBUTES 


005174 PC ,BLKPRT GO PRINT ATTR. MSG. FIVE TIMES 
005340 R5 AMSG :DESELECT ANY CHAR. ATTRIBUTES 


005174 PC,BLKPRT GO PRINT ATTR. MSG FIVE TIMES 
005340 R5, AMSG ;SELECT ANY ENABLED CHAR. ATTRIBUTES 


005174 PC ,BLKPRT GO PRINT ATTR, MSG. FIVE TIMES 
005340 R5, AMSG sDESELECT ANY CHAR. ATTRIBUTES 


005174 PC ,BLKPRT :GO PRINT ATTR. MSG. FIVE TIMES 
005340 R5, AMSG ;SELECT ANY ENABLED CHAR. ATTRIBUTES 


gssee 


pn et te re 4 
NA Li I Wow 


33 


POPONINIR -* et * OS 
So 
— 
—_ 


OONSO MF WN "0 OOO NFfwn—o 
So 
—_ 
— 


SSIRVoy 
Se-ee— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SOOCSCOCOCOOOoCOoCOCOCoCoOoCoSeoSoCoo 


VNNYENNN NN YEN NG 


Lae 
tN— 
So 
— 
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003132 004737 
003136 


seses 
SARY 


rete 
WrlSSeS 


EERE 


SEREE 


g 
) 


3 


005174 
005340 


005214 


001262 


PC .BLKPRT 
RS AMSG 


PC DELAY 


:GO PRINT ATTR. MSG. FIVE TIMES 
sDESELECT ANY CHAR. ATTRIBUTES 


sAND GO CHECK DELAY 


S ; eeeerererererererrerrerererererererereeeeeranekeeeeeeereeeeeeees 


G SCROLL SPEED JUMP TEST 


R5 AMSG 
PC,,ADELAY 
SG 


#101, STCHAR 
STCHAR ,R1 
PCF ILBUF 
PC, XPRNT 


,, e*tererrrrrrerrerererrererererererrrrereneeneeeeerenereeereeenes 


sERASE AND INIT SCREEN WITH FORM-FEED 


sWAIT FOR FORM-FEED TO FINISH 
DISPLAY HEADER 


SETUP STARTING CHARACTER 

;LOAD R1 WITH CHAR. COD 

LOAD LINE BUFFER WITH THAT CHAR. 
:DISPLAY A FULL LINE FROM THE BUFFER 


et tk a a a as os —* as 2s 


——s 
ooooo 


— te 
S333 
BISaE 


STCHAR :PUT NEXT CHAR. CODE IN 
000132 ati: :SEE IF HAVE DONE 25 LINES YET 


R5 AMSG ;PUT SCROLL COUNT ON LAST LINE 


S285 


ive) 

SNN™N MMW 
WER Ww 
NENG 


001266 MOV #3, TEMPO ;SET-UP LOOP COUNTER 
011236 : INIT SCROLL COUNT MESSAGE 
: :SET-UP VT COUNTER 
:PUT VERT. TAB CHAR. CODE IN RO 
: LOAD CHAR. IN OUTPUT BUFFER 
175764 : ? sWAIT UNTIL PRINTED 


sDECREMENT VT COUNTER 

sLOOP UNTIL 25. VT'S PRINTED 

: INCREMENT SCROLL COUNT MSG. 

sUPDATE SCROLL COUNT MSG ON LAST LINE 


: THEN DELAY BETWEEN SETS OF vT'S 
;LOOP UNTIL 3 SETS HAVE BEEN DONE 


pe eeeerererrrerererererereeererereeeeeeeKkaeeeeeneeeeneeeeAeeeeee 


S*TEST 10 H COLUMN ADDRESS TEST 


PUPe TIT tii itt ei ities iti iti iiiiiiiiiiiiiiiiiiiiity 
TST10: 
R5, AMSG DISPLAY HEADING 


001262 #57, STCHAR :SET-UP STARTING CHARACTER 
001266 vHO, TEMPO :LOAD_ TEMP 

$REGO ;CLEAR LINE COUNTER 

STCHAR ,R1 ;LOAD R1=T0 CHARACTER 

R5,LIC ;LOAD A BUFFER ~ «TING WITH 
;_ THAT CHARACTEn AD WIDTH <BYTE> 

005056 PC ,XPRNT :DISPLAY A FULL LINE FROM THE BUFFER 
001266 _e ; ? 


:DONE ? 
:BR IF YES 


-NN oO 


0 
0 
1 
0 


— 
REE 
_ 
ary 
Qa st a —_ 
nes = 
Ssscss = 


e 
te 


w 
INN 
=ANN 


Ses 
S 


011236 SCRNO 
005340 R5 AMSG 


005214 SR PC DELAY 
001266 TEMPO 


SEEsEE 
Ss 


Sse= 


Sn NSN NNN SS 


OA UE WMO 


ooo7moooe°co[“e]o 
™N 


3 

Ssccs 

WvVtn 
AaNNON-] NN 


ce et a ee a ts ss a a os st 
S3ss 


SSSSFERES 


So 
— 
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PC DELAY 


6 wines wu0 TERPO : INCREMENT THE LINE COUNTER 
: L 
001242 001162 + -SREGO TEST L SCREEN 


;BRANCH IF 
005214 PC DELAY sTEST DELAY SWITCH 


s,eeeeererereererererereterrrereseeereneeaeeeeaeeekeneeeKeeeeeeee 


;*TEST 11 i QUICK KEYBOARD CHARACTER TEST 


, ttereerereererererrreerrereererereereeereneekeneneeeenereeeeeee 
igti1: 
175476 OxBTSi: IT #B1T10,aSwRr sSEE IF BIT10 OF SWR SET 
BE 1$ :IF IT ISN'T EXECUTE KEYBD. CHAR. TEST 
SEOP :1F IT 1S GO TO SEOP 

1$: #v52RU,R3 7SET UP FOR LOWER CASE CHAR, 

2s: #STACK,SP F 

A: R5,AMSG ;DISPLAY HEADER 


(R3)+,R2 ;LOAD ROW # 
R5 AMSG ISSUE ROW] MESSAGE. 


PC, TSTROW sCHECK THE ROW 


(R3)+,R2 LOAD ROW # 
R5 , AMSG 72ND ROW 


PC, TSTROW sCHECK 2ND ROW 


3 (R3)+,R2 ;LOAD ROW # 
005340 JSR R5 AMSG ; ISSUE ROW 3 MESSAGE. 


005456 : PC, TSTROW CHECK ROW 3 


(R3)+,R2 ;LOAD ROW # 
005340 R5 , AMSG 


005456 SR PC, TSTROW CHECK ROW 4 


012164 #ROWS ,R2 
005340 R5 AMSG 


005456 PC, TSTROW sCHECK ROW 5 
: COMPLETION OF KEYBOARD-KEYPAD TEST 
005340 QKBDON: JSR R5, AMSG s;END OF KEYBOARD TEST 


K 
003624 JM SEOP :GO TO END OF PASS 
DISPCH: - 


$3S32233938 | 


FALLS 


J 
w 


SSLFERFUNLSVRVERRASLSSarsaraun=sSsVs 
S=8 
alee So 
tet pet vy 
Bn ens 
NSuUNnNUuN 


¥ 
mOoONVT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ek ee ee ee ke a ee te ed ed et ed ed et eed 


ooooooeoo 
nt eet ed cod ed ed ed ed 
ww 


enennee 
-wnr—-o 
Loh eh val 


MTEXT? 
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1145 003616 014002 MTEXTS 
1146 003620 000000 0 
003622 000000 0 


os 
os 
+ 

N 


-SBTTL END OF PASS ROUTINE 


TI i iii iti titi i itiiiiiiiiiit, 
: SINCREMENT THE PASS NUMBER (SPASS) 

:* INDICATE END-Of -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

s*TYPE “END PASS #XXXXX"" (WHERE XXXXX 1S A DECIMAL NUMBER) 

:*]1F THERES A MONITOR GO TO IT 

:*1F THERE ISN'T JUMP TO NOWEOP 


SEOP: 


et a os oe = 


VFARFASLSSELE ALERTS SSNFRLUNLSSE 


LAST sTEST IF MORE 
1$ :BR F NONE 
001226 " ames :1S + LAST ONE 
001226 #10, VTNOW 
002110 #TST1, WHERE 
RSTRT 3; TEST NEXT ONE 
SPASS sTEST IF FIRST PASS 
23 :BR IF NOT 
011642 »PASHED TYPE EOP HEADER 
005266 J PC ,ADELAY sEXTRA DELAY 
STSTNM :3;ZERO THE TEST NUMBER 
SPASS : 3 INCREMENT THE PASS NUMBER 
001100 #100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
(PC)¢ 3;LOOP? 
SEOPCT: . 


SDOAGN 3: YeS 

(PC)+,a(PC)+ 3;RESTORE COUNTER 
SENDCT: 1 
004003 TYPE , SENDAG 7: TYPE “END PASS @#°' 


001100 MOV SPASS ,-(SP) 73SAVE SPASS FOR TYPEOUT 
+360 TYPE--DECIMAL ASCII WITH SIGN 
, SENULL ACTER 


004000 
000042 $GET42: a#42,R0 
$DOAGN 


SENDAD: JS PC, (RO) 


SDOAGN: 
a(Pc)s  ;RETURN 
SRINAD: . NOWEOP 
000 $ENULL: .BYTE -1,-1,0 s:NULL CHARACTER STRING 
042116 SENDMG: .ASCIZ <15><12>/END PASS #/ 


1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


TD et et tt et a ee BB ce ee ce ee ced ed ed et ed ed etd ed 
~ 


SSSLESRASLESELERFAKSSS 


006043 
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001250 : PRICNT 
11$ 


001250 PRICNT 
002112 $: RO #TST1 WHERE 
004000 


, SENULL 
001750 SBEGIN 


ps, eeeaerereerererererrrereerererrereereeeneeeeeekeneneeeeReniantee 


S*TEST 12 J FULL KEYBOARD CHARACTER TEST 


,, eeerererererererrerererrerreerereeereteeeeeneeteneeekeneeeeeeee 


: OPE 

012146 : @vS2RW,R3 :SET UP FOR LOWER CASE CHAR. 
2s: @STACK SP 

R5 AMSG sERASE AND INIT SCREEN WITH FORM-FEED 


sWAIT FOR FORM-FEED TO FINISH 
DISPLAY HEADER 


Mmrorwrnwr 
SS 
SSS 
—— 


et et a es — Ls 
MMP hwrnrrnrnrr 
So 
— 
NVYVNnNOVNUS 


mn 


LOAD ROW # 
; ISSUE ROW! MESSAGE. 
MKBB2 
005456 : PC, TSTROW CHECK THE ROW 


: (R3)4,R2 ;LOAD ROW # 
005340 ‘ R5 AMSG 72ND ROW 


KBC 
005456 JSR PC, TSTROW ;CHECK 2ND ROW 


: (R3)+,R2 ;LOAD ROW # 
005340 R5 AMSG s ISSUE ROW 3 MESSAGE. 


KBD2 
005456 : PC, TSTROW ;CHECK ROW 3 


(R3)+,R2 ;LOAD ROW # 
005340 R5 AMSG 


MKBE 
005456 JSR PC, TSTROW CHECK ROW 4 


012164 MOV #ROWS ,R2 
005340 JSR R5 AMSG 


MKBF 
005456 JSR PC, TSTROW CHECK ROW 5 
sTEST THE “LEFT’’*SHIFT KEY 
005340 D: he R5, AMSG sDEPRESS THE ‘‘LEFT-SHIFT’* KEY 


MOV (R3)+,R2 ;LOAD ROW 1 SHIFTED TABLE 
005340 a R5, AMSG ; ISSUE ROW! MESSAGE. 


005456 2$: TEST THE ROW 
005340 4 RELEASE THE SHIFT KEY 


WN —O0@nOvisrun—o 


S22 See SESS SESS SERRE 


Nwnr 


Ss 


COnOUse 
NVINN NEND NENT 


WWW nr tror 
ee ee ee Pe ee ee et 
Wmue 


Le ahval 
eet at et et 
eNSZ Wn LFEWW fern 
wowed Wwe 


Ft ae ee ee 


sTEST THE "'RIGHTSHIFT"’ KEY 
004230 005340 E: JSR R5, AMSG sSET THE "'RIGHT=SHIFT"’ KEY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


REP RIM NI NIPINI NI NIN NNN NINNINP NP MNP PM Po ferns froftr wre 


PRAAAARTA RS 
OwFwn—Oo 








ll aa — lM —__ —— ——— —_ 
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CZVTOA.P11 09-JAN- 


ec 
Zs 


“uNNYVNT 


(R3) + ,R2 ;LOAD TABLE POINTER 
RS ,ARSG ; ISSUE ROW! MESSAGE. 


2s: PC, TSTROW sTEST THE ROW AGAIN WITH THE RIGHT-SHIFT SET 


RS AMSG 
AKBI sRELEASE SK'FT KEY 
:TEST THE CONTROL MODE 


Fs R5, AMSG 7SET CTRL 


(R3)+,R2 ;LOAD ROW 1 CTRL TABLE 
R5 , AMSG ; ISSUE ROW] MESSAGE. 


2s: PC, TSTROW TEST THE ROW 

: COMPLETION OF KEYBOARD TEST 

KRBDON: ss R5, AMSG END OF KEYBOARD TEST 
JMP KRBTST ;LOOP ON TEST 


BISAFAN=SSS 
SSecse SSS 
~“ NERS 
FIA NN 
AWA 


o 


EEE 


ppeeerenerereeeereerererereerererenereeereeeneeereeereerereeTeNee 
s*TEST 13 K KEYBOARD OCTAL VALUE LOOP 
s  MeeeeererrererererererererererereeeeerereRerereeeeeeeerereenere 
TST13: 
KRBECO: #STACK SP 

J R5, AMSG :DISPLAY HEADER 


1$: PC ,GETCHR :GET CHAR 
1$ ;;BR BACK IF NO INPU 


T 
PC ,OCTAL CONVERT RO TO OCTAL 
D1GO,AKEB ; DIGIT 
D1G1,MKEB+1 ; 

D1G2,MKEB+2 sLOAD DIGIT 
#177600,R0 


oo 
_ 


et at tt st tt et et ts et as wt ot ot ot 
™m ~ 
Nm 


3 


1284 0 
286 


$332 


— 
> at 


RO 

#BFCHR,R1 [LOAD POINTER 

(R1) RO :TEST IF = TO VALUE IN TABLE ? 
3$ <BR IF FOUND 

(R1)4 ‘MOVE POINTER 

5$ [BR IF MORE 

2$ [BR IF NOT IN LIST 

#BF CHAR-BFCHR,R1 [UPDATE POINTER 

(R1)+,MKEAI [LOAD 1ST CHAR 

CRI) +S AKEAT +1 [LOAD 2ND 


4 
RO, #40 ;TEST IF LESS THAN 40 
ab ‘BR IF ABOVE 

000100 #100,R0 [MAKE PRINTABLE 

010677 RO, MKEA1+1 SAVE CHAR 

000136 010676 #136, MKEAT [ADD A '** BEFORE CHARACTER 


8 4 
000040 010677 6$: #40,MKEAI+1 :LOAD SPACE 


SSSSSesssssss 
Son Set php ent pte 
NSNssSF22Y aGroNeesess 
SEASSSSVSSsSsxrxVes=s=ssss 


ee a a ee en ss tt 
— 2 


-OoO— -— 
os 

SF 
Wwowuw 


aan 
— —s» — 
wee 
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004464 110037 010676 RO, AKEAI LOAD CHARACTER 

004470 7? 005172 4$: IGNORE : IGNORE DOUBLE CHARACTER FLAG 
004474 DISPLAY MESSAGE 

004500 

004502 BR ;LOOP BACK 

: TABLE OF DEFINED CHARACTERS 


BF CHR: 


—— 
MSU 
w 


RNIN NIRIP PINAR — et 


sBACKSPACE (CURSOR LEFT CODE) 
; TAB CODE 


sLINE FEED CODE 
sVERTICAL TAB 

:FORM FEED 

:CARRIAGE RETURN CODE 
;S0 (“N) 


BNGVF WN —“OOOnOusr 
WFWwnN—O 


NOUN WS WO 


~N 


=S3 
PAAAAAMMAMA 


WALA AAAI Aw 


wan 
SENSSRNSSENSER 


eeeessssssesess 
nee 


™ 
So 
OOOO — & WN a wt wt 


DEFINED CHARACTER EQUIVALENTS 
BFCHAR: .ASCII sBACKSPACE (CURSOR LEFT) 
. 7H TAB 


sLINE FEED 
sVERTICAL TAB 
:FORM-FEED 
page «4 RETURN 


NI 


w 


BISAFE 


Sere 
wn—oo 
333 
rey 
Orn 


:$1 = *0 
s ESCAPE 
7 SPACE 
sASCII1 /DE/ ; DELETE 
000000 000000 0,0,0,0,0,0 
000000 000000 —_ 


pp eteeeeeeererrerereeerererereteeereeeeeKekeeeeeeeeeReeeeeeeAAeee 


S*TEST 14 L KEYBOARD ECHO LOOP 
pe ereeeetererererererrrererererererereeeKekeeeeeKeeeeeeeeeeeeees 
TST14: 

001100 KRBECH: #STACK,SP 

005340 R5, AMSG :DISPLAY HEADER 


GESEEE EEE 


Pnw 
SBN ARUN SOMOS 


aA rt At 


nw 


006334 1$: ‘ PC ,GETCHR ;GET CHARACTER 


174426 RO,avT0B ;LOAD THE CHARACTER 
174420 2$: avTos ;WAIT FOR DONE 


1$ ;LOOP BACK 


SEFEESE 
CTT x 


1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


oo 
on 
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, teerererererererrreerereererererrarerereaererereeeeeeeeerereeeee 


:#TEST 15 La] CHARACTER ATTRIBUTE TEST (A.S.B. SELECT) 


strterererererrerererererrererrerrrereerrekerenereneeeenenererere 


ig115: SCOPE 
005340 CHRATT: g R5 AMSG DISPLAY HEADER 


R2 SCLEAR BLOCK COUNTER 
001162 1$: SREGO [CLEAR LINE COUNTER 
011242 6$: #ATTRE,RO 3 SETUP MESSAGE POINTER 
zs: MOVB = (RO) + RI TAC 
RI #377 ‘SEE If REACHED END OF LINE YET 


#B1T0,R2 :SEE IF ON AN EVEN OR ODD BLOCK 
3$ :1f ON EVEN BLOCK SET CHAR. ATTR. 
#B1T7,R1 :SET M.S.B. OF THE CHAR. CODE 
: a!) R1,avT0B LOAD THE CHAR. 
174340 : ~ tae sWAIT UNTIL PRINTED 


2s :GO GET NEXT CHAR. 


001162 5$: $REGO : INCREMENT LINE COUNTER 

000005 001162 #5 ,SREGO sSEE_ IF 5 LINES OF BLOCK PRINTED YET? 
6$ TINUE IF BLOCK NOT DONE 
R2 ELSE INCREMENT BLOCK COUNTER 

000005 a any IF SCREEN FULL (5 BLOCKS)? 


NO C NUE 
005214 ad WAIT A WHILE BEFORE LOOPING ON TEST 


BARBRA AG 
Sane oO 
—— © 
sx=ss 


S=S8ERS 
on —tw— 


SSSSSSSSSFESES 


BE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SSSssss 


& 


peeeeerereeeere PROGRAM SUBROUTINES eeekeeeeeeeeeeneeeteeeeeeeeee 


;LOAD A SINGLE CHARACTER ACROSS THE SCREEN WIDTH 


© 


001270 FILBUF: MOV WIDTH,R2 ;LOAD WIDTH VALUE 
FILBFB: MOV #BUFFER,RO ; SET-UP BUFFER POINTER 
MOVB #15, (RO)+ :LOA D ‘CR 
MO #12, (RO)+ sLOAD ‘FL* 
FILBFA: R1,(RO)+ ;SAVE THE CHARACTER IN THE BUFFER 
DE R2 s FINISHED? 


FILBFA :BRANCH IF NOT COMPLETED 
#377, (RO) ;LOAD TERM. 
PC ZEXIT 


;LOAD A_INCREMENTING CHARACTER ACROSS THE SCREEN WIDTH 
sONLY 40 THRU 177 ARE LEGAL CHARACTERS 


022066 LIC: wBUF FER RO : SET-UP BUFFER POINTER 
MOV 5)+,R2 : SET-UP WIDTH 

000015 ;LOAD 'CR® 

[LOAD ° 


000012 MO 
LICA: R1, (RO ; SAVE A CHARACTER IN THE BUFFER 
I UPDATE THE CHARACTER 
001264 LASTCH,R1 TEST FOR 


—— 2 OO 
Ss 


=8S 
os etenseeee 
om NOnmnw 
NOUWNSOSOSO 


oo---0o0 
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005036 
005040 
005044 


005046 
005050 
005054 


ig 
ebb: 
SFE 
S35 


a 
oe eet ae 


005214 013737 


a “79 08:55 PAGE 31 


PROGRAM SUBROUTINES 


LICB 


sBRANCH IF NOT 
sMAKE A LEGAL CHARACTER 


000040 MOV #40,R1 
LICB: DEC R2 ;DECREMENT COUNT 
BNE LICA BRANCH IF NOT COMPLETED 
000377 *OVB #377, (RO) LOAD TERM 
RTS RS sEXxIT 
sDISPLAY SUBROUTINE 
022066 XPRNT: MOV SBUFFER,RO ; SETUP BUFFER POINTER 
174170 XPRNTA: TSTB avTos 3; TEST READY 
BAl XPRNTB ;BRANCH IF SET 
174162 TST avTos T ERROR 
BPL XPRNTA {BRANCH IF RESET 
ERROR sERROR FLAG SET ON TRANSMITTER STATUS 
XPRNTB: MOVB (RO)+,R1 
000377 CMPB #377, 
BEQ $ sBR IF END OF MSS. 
000033 5$: CMPB #33,R1 sTEST FOR ESC 
BNE 7BR IF NOT a 
005170 a Te 3SET SOFT FLAG 
005170 3$: CLR ANESC : CLEAR aly FLAG 
174124 4$: MOvB R1,avT0B ;LOAD CHA 
BR XPRNTA :60 GET NEXT CHAR. 
sNORMAL EXIT 
005160 1$: CLR XOF FOK 
005172 CLR IGNORE 
005156 CLR XOF FBR 
RTS sEXIT 
LooP: 0 
XOFFBR: O 
XOFFOK: 0 
AXOF F 0 
XOFFRC: 0 
XONRC 0 
ANESC: 0 
IGNORE: 0 ;WHEN SET IGNORE KEYBOARD FLAGS 
; SUBROUTINE TO PRINT A BLOCK OF 5 LINES EACH (FOR CHAR. ATTR. TEST F = SO/SI) 
000005 BLKPRT: MOV #5,R2 :SET UP LINE COUNTER 
005340 1$: a R5, AMSG ;TYPE CHAR. ATTR. MSG (S0/SI1) 
DEC R2 ;DECREMENT LINE COUNTER 
BNE 1$ ;LOOP UNTIL MSG PRINTED 5 TIMES 
RTS PC THEN RETURN 


;PROGRAM DELAY ROUTINE 


001234 005262 DELAY: MOV 


SUBTST, 10$ 


;LOAD COUNT 


SEQ 0030 
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005264 11$ 
010000 173704 28: #BITI2,aSwR TEST SR 
3$ :BR IF SET 
005264 Wis :DELAY 
005262 _ Jos 


2 DELAY 


PC sEXIT 
108: 
118: 
005334 ADELAY: SUBTST,10$ 
C 118 


2$: 
005334 


oO 


SUBROUTINE FOR M7142 


012537 005350 : MOV (R5)+,10$ :GET POINTER 
004537 006412 1$: = R5,MTOB ;MOVE TO BUFFER 


000000 : 
004737 005056 : JSR PC ,XPRNT sDISPLAY IT 
000205 RTS R5 sEXIT 


an =sSe 


at ets Se 


sOCTAL - 3 BIT CONVERSION 


OCTAL: Vv ;LOAD R1 
177770 B 7 MASK 
000060 #6 
005454 ; SAVE LSD 
RO,R1 


MMRMINININ MRD es 
ODOrOWFSWIN—O OOneo ue 


R1 
17777C #177770,R1 
000060 #60,R1 

005452 a Bie :SAVE IT 


15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 


SARFUGLS 


R1 
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000301 R1 
042701 177770 #177770,R1 
062701 000060 60,R1 
110137 005450 o—— Fer MSD 
7 EX 


ww, 
x 
~N 


THE KEYBOARD CHARACTER TEST 
005340 R5 AMSG DISPLAY HEADER 


006334 1$: GETCHR :GET A CHARACTER 
8 1$ sWAIT FOR INPUT 
005716 PARITY ADJUST CHAR IF PARITY 
000040 + id SEE IF IT IS A PRINTING CHAR. 


sECHO IF IT IS (40-176) 
000176 ee 


173542 RO,a@vTOB ECHO THE CHAR. 
173534 avTos sWAIT UNTIL ECHO'D 


BP 11$ 
005706 RO, 1008 CMP EXPCT AND RCVD 
B 2$ ; TYPE ERROR INFO 
— 


1 ;LOOP TILL DONE 
sEXIT TEST 


;COME HERE IF EXPECTED NOT EQUAL TO RECVD 
CONVERT RESULTS TO OCTAL FOR TYPEOUT 


001126 28: RO, SBDDAT ;LOAD BAD CHARACTER 
PC ,OCTAL CONVERT TO OCTAL 
;LOAD OCTAL # 


SESESs 


S=8= 
es3 


SELEREUNS SSS 
= s 
w 


POaOWAanrnnnAannnawnny 


www 
a2 
—> 
S 


3 


S323 
7 otenon So 
— 
Beauaks 
{NNN NO 
VSeeees 
won Sana NN™NS 


;TEST IF PRINTABLE 
;BR IF PRINTABLE 
000056 ;CONVERT TO A ‘’#’' CHARACTER 
010222 : :SAVE CHAR 
:GET GOOD CHAR 
005714 


;LOAD GOOD CHARACTER 
;CONVERT IT 
;LOAD DIGIT 


SSN NNN 
ONO UVEWN OO 


—i = OND 


E3 


Soh ass 
Roles 


:SAVE CHAR 
001252 P :TEST IF ON CTY 
:BR IF YES 
005340 ;DISPLAY ERROR MESSAGE 
;CHARACTER RECVD NOT EQUAL TO EXPECTED 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


EPI VTLS DST popepepepetebebebete HY Y > 4 
‘Oo 
ooo — — 


CLSSELESFAT=ES 
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000667 BR 1$ ;BR BACK AND TEST THE CHARACTER AGAIN 
000000 100$: 0 

000000 101$: 0 

177600 MASK1: 177600 

000000 MASK2: 0 


iots | ADD PARITY TO EXPCTD CHAR 
ATH 005712 PARITY: MOV Ab eae -MASKI 
173202 #B1T2,aSwR sTEST SWR 
&e :00 NOT TEST PARITY BIT 
005712 #B1T7 ,MASK1 


173164 cis oem sun 
173154 > a aSuR s TEST FOR a oe PARITY 


[BR IF ALLWA 
005714 aB117, MASK2 :SET BIT 7 
: R2), 100 GET EXPECTED 
005706 masks. 1008 SET BIT 7 IF EXPECTED 
MASK1.RO ‘ASK VALUE READ 
[EXIT ROUTINE 
1018 [CLEAR TEMP 
(R2),100% sCLEAR CHAR SAVE 
100$ [ROTATE CHAR 
21$ [BR IF NO CARRY 
1018 :UPDATE CNT 
1008 “DONE ? 


20% BR IF NOT 
173066 #B1T0,aSuR ;TEST EVEN/ODD 
ti. :BR IF OPER. SAYS EVEN 
22% BR IF ODD ALREADY 
005714 #B1T7,MASK2 ;SET PARITY BIT 
8 a :BR TO TEST CHAR 


24 BR IF EVEN ALREADY 
000200 005714 #B117,MASK2 
4$ :BR TO TEST CHAR 


Se288 


fun—o 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


peeeeerererererrererereererreeteererereneereeeeeerereeeeeeeeeeee 
 @THIS ROUTINE 1S USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCI1) NUMBER AND TYPE 17. DEPENDING ON WHETHER THE 
> *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 

is 


:*CALL: 
MOV NUM, -(SP) ;;PUT THE BINARY NUMBER ON THE STACK 
TYPDS ;:G0 TO THE ROUTINE 


STYPDS: 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


RO,-(SP) 5:PUSH RO ON STACK 
R1,-(SP) - 

R2,-(SP) 

R3,-(SP) 

R5.-(SP) 

#26200,-(SP) 

20(SP) RS 


), 


R5 
000001 #*=,1(SP) 
RO 


#SDBLK ,R3 
a’ ,(RS)4 


SOTBL(RO).R1 
R1,R5 


UP THE OUTPUT POINTER 
:3SET A FIRST CHARACTER TO A BLANK 
THE BCD NUMBER 
GET ATHE CONSTANT 
ph At BCD DIGIT 


BR IF DONE 
INCREASE THE BCD DIGIT BY 1 


SPRDESSSESSRRDESEGS 
NSFFSENSESERSERSS ENS 


;;ADD BACK THE CONSTANT 
3;CHECK IF BCD DIGIT=0 
::FALL THROUGH IF 0 
Poe 1 — LEADING 0°S? 


3:BR IF NO 

3: YES--SET THE SIGN 

>:MAKE THE BCD DIGIT ASCII 

3:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
3:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
32:JUST INCREMENTING 

3;CMECK THE TABLE INDEX 

+360 d0 Ae DIGIT 


177777 


000010 


SEBESSREE 


177777 177776 


006324 
000002 000004 


SDTBL: 


SDBLK: 


9% 
~1(SP),-2(R3) 
(R3) 


(SP)+,R5 
(SP)+.R3 
(SP)+.R2 
(SP)+.R1 
(SP)+.RO 
S$DBLK 
3(SP) ,4(SP) 
(SP)+. (SP) 


& 


GE TO ASCII 
ZIWAS ees THE FIRST NON-ZERO? 


3 YES==SET THE at FOR TYPING 
;SET THE TERMINA 

::POP STACK INTO RS. 

33POP STACK INTO R3 

33POP STACK INTO R2 

3:POP STACK INTO R1 

:3POP STACK INTO RO 

;:NOW TYPE THE NUMBER 

;;ADJUST THE STACK 


; RETURN TO USER 


; SUBROUTINE TO GET A CHARACTER FROM THE KEYBOARD 





J 3 
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006334 013737 001232 006406 GETCHR: MOV TIMEO, TIME1 ;LOAD TIME COUNTER 
006342 005037 006410 CLR TIME2 


3% 


006346 105777 172700 18: avTls :TEST INPUT STATUS 
006352 100005 2% :BR IF CLEARED 
006354 172674 sREAD A CHAR 
006360 000002 2 Aye RETURN 


006410 2$: : DELAY 
1$ 


006406 sFINISHED ? 
1$ ;LOOP TILL TIME EXPIRED 
oo ae FLAG FROM DEVICE 


NNN NSS 
TROIS at nt nt et a os os Ss 
—SOVOOwrwOVilwn—oO 


TIME1: 
TIME2: 


MOVE TO THE OUTPUT BUFFER 


MTOB: (R5)+,RO0 LOAD DEST. 
022066 #BUFFER,R1 ;LOAD Ri 
1$: (RO)+,(R1)+ ;LOAD BYTE 
1$ BR UNTIL DONE 
RS EXIT 


SSS VS SESS 
NM—OOOnNOUVEwr 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SNS NSN NS 
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1733 

7 -SBTTL ASCI1 MESSAGES 

7 a MESSAGES 

4 messages 0 BE PRINTED BY “XPRNT’’ SUBROUTINE MUST BE TERMINATED 
7 


<15><15><12>\ CZVTOA ry * SERIAL VIDEO BOARD ACCEPTANCE TEST\<15><12><0 
<15><12><15><12>/ FUL REEN OF THE CHARACTER E/<15><12><377> 
<15><12><15><12>/ ctNeLE CHARACTER PER LINE /<15><12><377> 
<15><12><15><12>/ ROTATING PATTERN /<15><12><377> 
<15><12><15><12>/ CURSOR MOTION TEST (CR, TAB.LF,BKSP,VT) /<15><12><377> 
<15><12><15><12>/ SCROLL SPEED JUMP TEST/<153<1é>c5 7}> 
<15><12><15><12>/ COLUMN ADDRESS TEST/<15><12><377 
<15><12><15><12>/ CHARACTER ATTRIBUTE TEST (SO-SI SELECT) /<15><12><377> 
<15><12><15><12>/ eng ATTRIBUTE TEST (A.S.B8. SELECT) /<15><12><377 
<15><12><15><12>/ QUICK KEYBOARD CHARACTER TEST/<15><12> 
<15><12>/RELEASE THE *SHIET™ KEY/<15><12><377> 
E S ONE KEY AT A Eg a he 
HE ROW EXCEPT THE BREAK KEY/<15><12> 
HE SECOND ROW/<15><12><377> 

<15><12><15><12>/START WITH THE THIRD ROW .BEGIN ROW WITH “"A’’ KEY/<15><1 
<15><12><15><12>/START WITH THE FOURTH 5 EXCEPT SHIFT AND REPEAT/<15>< 
5 tha og i ote gD THE SPACE BAR (THE FIFTH See Petsoatandares 
<15><12>/NOW D DOWN THE “‘LEFT-SHIFT’’ KEY/<15><12><377> 
<i3<19>/now WOLD DOWN THE *RIGHT-SHIFT’’ KEY/<15><12><377> 
<15><12>/NOW HOLD DOWN THE ‘’CTRL"’ KEY/<15><12><377> 
pit seam WAS IN ERROR/<15><12> 


= 

t6-40 40, 75. 40 

40, °40, 40, °40, 40 

/BAD = 

40,40, 75, 40 
40,40 40,15,12,377,0 
<1§><{2>/KEYBOARD ¢ CHARACTER TEST COMPLETE/<15><12><377> 
<15><12>/INVALID BUS ADDRESS-PLEASE RETRY/<15><12> 

MKBX: M I] <15><12><15><12>/ #** FULL KEYBOARD CHARACTER TEST *##/<15><12> 
046105 : ASC <15><12>/RELEASE THE ‘SHIFT’ KEY/<15><12><377> 


054505 : <15><12>/ KEYBOARD ASCII AND OCTAL LOOP/<15><12> 
Z (WHEN A KEY IS DEPRESSED, THE ASCI1] CHARACTER AND/ 

/ THE THREE DIGIT OCTAL CODE WILL BE ECHOED/ 
<1§><{2>/CHAR = / 
40,40,40, 
40,40,40,15.12,377,0 
<15><{2>/KEYBOARD ECHO LOOP/<15><12><377> 
<33><134><353><137><15><12><12>/LOOP ON TEST PATTERN LETTER (A THRU M) ? 
<33><134><33><137><15><12><12>/START AT TEST PATTERN LETTER (A THRU M) ? 


<15><12><12>/TRY AGAIN /<15><12><377> 
ctrocigpctociond DIRECT CURSOR ADDRESSING TEST /<377> 


<14><377> 
10,10,10,10,10,10,10,10,10,10,10 
/ SCROLL # / 

60,0,377,0 


055103 
020040 


—_ — = 
MMAR MAMNIINMNTPS 


SSSeess 
Ww New 
=o 
SONANNONAUWNS 


04 
04 
04 
04 
04 


retalata) AAMAAAAA 
at i Oat et et PS PS PN PS PS PN Pd me Pe Pe Pe Ps Pe es 


gESEr8 


WBNNINIUS Wi 


FUSRE 
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026505 : <15><12>/THE-CHARACTER-AT TRIBUTE (S)-ON-THI SL 1nE- -1S/ 

026451 s / CARE) “SELECTED (DESELEC TED) -BY-"M.S.B°’. /<377> 
<15><12>/ THE -CHARACTER@AT TRIBUTE (S)-ON-THIS-LINE- -1S/ 
/ CARE) SELECTED (DESELEC TED) -BY-"'SO-S1°". /<377> 
<16><377> 
<17><377> 
<15><12><12>/FIRST LINE DEVICE ADDRESS ? = /<377> 
<15><12><12>/LAST LINE — ADDRESS (CR IF NONE) ? = /<377> 
<15§><12>/ PASS # 
JERROR FLAG SET ON TRANSAITTER STATUS/ 
/WO INPUT FLAG DETECTED/ 
/UNEXPECTED OR INCORRECT INPUT CHAR/ 

0 : JERRPC VINOW TSTNUM/ 

051122 041520 : JERRPC VINOW TSTNUM  EXPCT RECV/ 


-EVEN 
001226 001230 : SERRPC,,VINOW, TSTNUM,0 
001226 001230 3 SERRPC ,VINOW, TSTNUM, SGDDAT , SBDDAT ,0 


-SBTTL KEYBOARD CHARACTER CODE TABLES 
THE ACTUAL KEYBOARD LAYOUT IS REQUIRED 
012224 012262 vV52RW: ROW12,ROW22 ,ROWS2 ,ROWS2 ,ROWI2S ,ROWI2S ,ROWI2C 


BEFENIAFF 


oooooooeoocKeo 
w 


ee at et ot ws os os 


—=—Mmoor 
Conumuwum 


ROWS:  .WORD 100040 

37142 KEYBOARD EQUIVALENCES(LOWER CASE CHAR.) 

ROW12: .WORD  33,61,62, $3, 64, $9 66,67,70.71,60,55,75 

ROW22: .WORD 11, 164 ,16 ? 
: .WORD 141, oh fad 150,152, 15 3 

ROWS2: .WORD 172, 1907143. 168 103" 156,155.54, 0 


§ 
Soe Aig ROW CODES 
000100 ROWI2S: .WORD 33,41,100,43,44,45,136,46,52,50,51,137,53,176.100010 


;CONTROL ROW CODES 
000022 ROWI2C: .WORD 33,21,22,23,24,25,26,27,50,31,20,15,35,0,100010 


1 
1 
4 
? 


¥ 


g38 


—weeees FN 


020131 ERCHR: <15><12>/KEY CODE ERROR/<377> 
INSTR: /START 1ST ROW LEFT TO RIGHT/<15><12> 
“ASC /PROCEED TO LAST ROW/<15><12><377> 


MTAB: et a oe TAB OVER-NO CHARACTER ERAS 
3 T oUV,00,09,091,91,11,11,11,11,11,1 
git. i. 1, iW. iW. 11. 11,11,11 


oA 
MBKSP: . <12>/<LF>/<12>/<LF>/<12>/<LF>/<12>/<LF>/ 
oA / BACKSPACE OVER-NO CHAR. ERASE/ 


eo 
—w 


w 

= 

wn 
ofrooo --— 


— 


SooCcoeooce°co9eco COO 
eee ss a es — —s 
parties! 44-444 4 Mrmr 

wesw 

So 

Ay 
COoOOCOON row 

oo 

won 

—aA~ 
oOrmowgroo 
a ee os 
Sooowmoue— 


ooo 
~~ 
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CZVTOA.P11 


2 
0140735 


~ 
ww 
at 


FALUN 
—s 
rs 


000004 
165030 
165024 
177600 


So 
NUN 


& 
~ 
& 


2 Bt OO 

o—-— 
“IN 
w~ 


= 


SANS NNN 
= 


Raw 
soon 
S 
onrxNUNO 
Nee NNH 


~ 


164776 


164772 
177600 
000021 


ANS 
FERS 
— 
ASS 


ase 


000004 
000004 
000040 


FSxs 
SNSSs 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
177 
1 
1 
1 
1 


* 


006476 
005476 


000002 


000004 
000004 
000023 


000140 
000175 
000004 
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KEYBOARD CHARACTER CODE TABLES 


AvT: -ASCII 


ASCII 
ATEXTO: 


MTEXTS: 
MTEXTS: 


MTEXTB: 
.SBTTL 


-BYTE 12, 
TTY INPUT ROUTINE 


<15>/<CR>/<15><13>/<VT>/<13>/<VT>/ 
<15>/<VT>/<135>/<VT>/<13>/<VT><CR>/<15><377> 


<15><12><12>/THIS SOFTWARE 1S FURNISHED TO PURCHASER UNDER A LICENSE FOR 
<15><12>/0N A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION/< 
<15><12>/0F DEC’S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT/ 
<15><12>/AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC./<377> 


<15><12><12>/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHO 
<15><12>/NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL/< 
<15><12>/EQUIPMENT CORPORATION. /<377> 

<15><12><12>/DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
$p°as gattis SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC./ 


ss eteneeererereterrereererereererereenaekerenenekererereeeaeeeeene 


“ENABL LSB 
.DSABL LSB 


sy eeeereerererereererereererererereereeeaeteeaeaeeneeeneeneeeenes 


*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CALL: 


SRDCHR: MOV 
MOV 
1$: 


4$: 


ie RDCHR 
ie RETURN HERE 
® 


;: INPUT A SINGLE CHARACTER FROM THE TTY 
>; CHARACTER IS ON THE STACK 
i;WITH PARITY BJ? STRIPPED OFF 


(SP) ,-(SP) 
4(SP) ,2(SP) 
astKs 


3:PUSH DOWN THE PC 
3;SAVE THE PS 

ee T FOR 

373A CHARACTER 

3;READ THE TTY 

3:GET RID OF JUNK IF ANY 
33:18 1T A CONTROL-S? 
3;BRANCH IF NO 

33;WAIT FOR A CHARACTER 


1$ 

a$TKB,4(SP) 
#°C<177>,4(SP) 
4 (SP) #25 


astKs 
2s 


aSTKB,-(SP) 
#°C177, (SP) : MAK 
(SP)+,#21 7:18 IT A CONTROL-Q? 

2$ s:1F NOT DISCARD IT 
SSYES, RESUME 

7:18 17 UPPER CASE? 
S:BRANCH IF YES 

[:18 17 A SPECIAL CHAR? 
S:BRANCH IF YES 


1$ 

-* al aden 
4(SP) #175 
4$ 
#40,4(SP) 


sp; eeeerererererererererereerteeeeeeeeeeeereeneteeeeeeeeeeeeeeeeEe 


7 *CALL 


RDLIN 
RETURN HERE 


*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


:: INPUT A STRING FROM THE TTY 
; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
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1780 i* TERMINATOR WILL BE A BYTE OF ALL O'S 

1782 014220 010346 SRDLIN: MOV —s_ R3,,= (SP) 3:SAVE R3 

1783 014222 012703 014326 1$: MOVs #STTYIN.R3 :GET ADDRESS 

1784 014226 022703 014336 2s: CHP #STTVINGS..R3 BUFFER FULL? 

1785 014232 101405 4$ ::BR IF YES 

1786 014234 104406 ROCHR $360 READ ONE CHARACTER FROM THE TTY 

1787 014236 112613 MOVB (SP) +, (R3) ::GET CMARAC 

1788 014260 122713 000177 108: CMPB #177, (R3) 378 17a RUBOUT 

1789 014244 001003 BNE —_«-38 ::SKIP IF NOT 

1790 014246 104401 001166 4$: TYPE , SQUES ::TYPE A '?° 

1791 014252 000763 BR is CLEAR THE BUFFER AND LOOP 

1792 014256 111337 014324 38: MOVB (R3),98 ::ECHO THE CHARACTER 

1793 014260 104401 014324 TYPE —_ ,. 98 

1794 014264 122723 000015 CMPB #15, (R3)4 : CHECK FOR RETURN 

1795 014270 001356 BNE 28 LOOP IF NOT RETURN 

1796 014272 105063 177777 CLRB = 1(R3) i 3CLEAR RETURN. (THE 15) 

1797 014276 104401 001170 TYPE =, SLF ; TYPE A LINE FEED 

1798 014302 012603 MOV = (SP) 4, R3 RESTORE R3 ; 

1799 014304 011646 MOVs (SP) , = (SP) :;ADJUST THE STACK AND PUT ADDRESS OF THE 

1800 014306 016666 000004 000002 MOV = &( SP} ,2(SP) 33 FIRST ASCII CHARACTER ON IT 

1801 014314 012766 014326 000004 MOVs #STTYIN,4(SP) 

1802 014322 000002 RTI ; :RETURN 

1803 014324 000 98: BYTE 0 ;ESTORAGE FOR ASCII CHAR. TO TYPE 

1804 014325 000 “BYTE 0 3; TERMINA 

1805 014326 000010 STTYIN: .BLKB 8. ; RESERVE 3 BYTES FOR TTY INPUT 

1806 014336 052536 005015 000 SCNTLU: -ASCIZ /*U/<15><12> : CONT ROL "U' 

1807 014343 | 136 006507 000012 SCNTLG: -ASCIZ /*G/<15><12> CONTROL "'6™ 

1808 014350 005015 053523 020122 S$MSWR: .ASCJZ <15><12>/SWR = 

1809 014356 020075 —_ 000 

1810 014361 040 047060 053505 SMNEW: .ASCIZ / NEW = 

1811 014366 036440 000040 

1812 SBTTL READ AN OCTAL NUMBER FROM THE TTY 

1814 ps, eeeererererereneeereeerererereetekeeeeKeeReeenaNeteeeeeeKenenee 

1815 Z*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

1816 *CHANGE IT TO BINARY. 

1817 *THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGA’ 

1818 S*OCTAL DIGIT S; If AN ILLEGAL CHARACTER 1S READ A?) WILL BE TYPED 

1819 *FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 

1820 i*THEN BE RETYPED. THE INPUT 1S TERMINATED BY TYPING A CARRIAGE RETURN. 
:#CALL: 

1822 i RDOCT ;;READ AN OCTAL NUMBER 

1823 ze RETURN HERE :;LOW ORDER BITS ARE ON TOP OF THE STACK 

1826 :* HIGH ORDER BITS ARE IN SHIOCT 

1826 014372 011646 $RDOCT: MOV (SP) ,-(SP) ;;PROVIDE SPACE FOR THE 

1827 014374 016666 000004 000002 MOV =: & (SPJ ,2(SP) INPUT NUMBER 

1828 014402 010046 MOV —s_ RO, = (SP) ;;PUSH RO ON STACK 

1829 014404 010146 MOV =—s- R11, = (SP) PUSH R1 ON STACK 

1830 014406 010246 : MOV —s-R2, = (SP) ;3PUSH R2 ON STACK 

1831 014410 104407 1$: ROLIN ;READ AN ASCIZ LINE 

1832 014412 012600 MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 

1833 014414 010037 014520 MOV —s- RO, 58 :;AND SAVE 1T 

1834 014420 005001 CLR RI CLEAR DATA WORD 

1835 014422 005002 CLR sR 


[ ee — el el ll. a 
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1836 28: (RO)+,-(SP) ::PiCKUP THIS CHARACTER 


ee ee ee ce et 


EEESES 


SESESUC TE Se Leah oe 


www 
oon 


000060 
000067 


177770 


4$: 


R2 
#*C7,(SP) 
(SP)+,R1 
23 


(SP)+ 
R1,12(SP) 
R2,SHIOCT 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


(SP)+ 
(RO) 


::1F ZERO GET Out 
>;MAKE SURE THIS CHARACTER 
731S AN OCTAL DIGIT 


332 
33%4 
33*8 


:;STRIP THE ASCII JUNK 
oy gg THIS DIGIT 


sel 
>;CLEAN TERMINATOR FROM STACK 
>;SAVE THE RESULT 


3;POP STACK INTO R2 
:;POP STACK INTO R1 
+ INTO RO 


23 N 
;;CLEAN PARTIAL FROM STACK 
:;SET A TERMINATOR 


:; TYPE UP THRU THE BAD CHAR. 


0 

, SQUES + a “TR” g “UF 

B 1$ 7: TRY AGAIN 

$HIOCT: . 0 :;HIGH ORDER BITS GO HERE 
MSCOPE : #B1T9 ,aSwR sTEST BIT 7 

$SCOPE NOT SET 

LOOP ;TEST LOOP 

SOVER ;SET LOOP ON TEST 


-SBTTL SCOPE HANDLER ROUTINE 


5$: 
001166 


001000 
005154 


164400 


SesSrezes 


014546 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


A oe 
coco 
SNe 
—-OoOo 


ppeeerererenrereeerrererereerereerereeeeeeeeeeeEeAeeeeeeeeeeeee 
7*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

3*SW14=1 LOOP ON TEST 

3 *$W08=1 LOOP ON TEST IN SWR<7:0> 


;*CALL 
3 SCOPE :;SCOPE=10T 


SSCOPE: 
164362 1$: BIT #B1T14,aSWR ::LOOP ON PRESENT TEST? 
BNE V :YES IF SW14=1 

:WHHMASTART OF CODE FOR THE XOR TESTERMMHMM 
$XTSTR: BR 6$ :;1F RUNNING ON THE "'XOR' TESTER CHANGE 

::THIS INSTRUCTION TO A "'NOP'' (NOP=240) 

QERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 

#5$,a#ERRVEC 3;SET-FOR TIMEOUT 

a#177060 +: TIME OUT ON XOR? 

(SP)+,@#ERRVEC ::RESTORE THE ERROR VECTOR 


014550 
014550 
014556 
014560 


014562 
014566 


012637 


032777 
001035 


000416 
013746 


040000 


SESSSEEes 


000004 
000004 


000004 


ee se es es tt 


33 
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1892 014604 000414 SSVLAD ::G0 TO THE NEXT TEST 
1893 014606 : (SP)+,(SP)+ 3;CLEAR THE STACK AFTER A TIME OUT 
1894 0 (SP) +, @#ERRVEC 2 sRESTORE THE ERROR VECTOR 
1895 00041 BR SOVER LOOP ON THE PRESENT TEST 
1896 33 CODE FOR THE XOR TESTERS#### 
1897 164314 BIT #81708 ,aSuR : LOOP ON SPEC. TEST? 
1898 001404 SSVLAD IF NO 
1899 001102 @SUR ,STSTNA 3 30N THE RIGHT TEST? SWR<7:0> 
1900 001406 BE SOVER IF 
1901 SSVLAD: STSTNA NUMBERS 
MO (SP) ,SLPADR 3 SAVE SCOPE LOOP ADDRESS 

C SERFLG ;ZERO THE ERROR FLAG 
164262 SOVER: STSTNM.@DISPLAY ;;DISPLAY TEST NUMBER 

MO SLPADR, (SP) pitts eas ADDRESS 


33 


-SBTTL ERROR HANDLER ROUTINE 


se eeeaereeeereeeererererererertererekereeeeeKeeeeeneeeeeeekereee 
S*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
[*AND GO TO SERRTYP ON ERROR 
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
:#SW15=1 HALT ON ERROR 
ieSul5= =] INHIBIT ERROR TYPEOUTS 
S®CALL 
ie N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


SERROR: 
2 001230 STSTNM,TSTNUM 
3 7$: SERFLG 23SET THE ERROR FLAG 
7$ ;DON'T LET THE FLAG GO TO ZER 
3 ES caer 3 :DISPLAY TEST NUMBER AND ERROR FLAG 
6 
64 


3eS332 


wooonononooowovs 
ae et at es ws ws as ss = 


—SOO@ne VFwn—oO 


mr 


00110 
00110 
0 
1 
1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


000 
™Nm 

Nm 
— 
o— 


0011 
0011 SERTTL NC THE ERROR COUNT 
0011 - ia ::GET ADDRESS OF ERROR INSTRUCTION 


00000 ‘ 
1641 @SERRPC,SITEMB ;;STRIP_ AND SAVE THE ERROR ITEM CODE 
020000 #B1T15,aSuR :3;SKIP TYPEOUT IF SET 
208 :;SKIP TYPEOUTS 
015000 PC ,SERRTYP ::G0 TO USER ERROR ROUTINE 
001167 - SCRLF 


164160 5$:. aSWR ;:HALT ON ERROR 
3$ ::SKIP IF CONTINUE 
35 ;:HALT ON ERROR! 


003764 000042 #SENDAD #42 33ACT=11 AUTO-ACCEPT? 
6$ : BRAN CH IF NO 


Sa=e2828 
NNN 
~ o Nm 


3 


6$: 
014776 7 RETURN 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


WEARRARBRBAASAAAAASAAAAARRSARAARAARERAAASER EERE RS ARERR SAREE REAR RASS SS 


:*THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
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63 
ERROR MESSAGE TYPEOUT ROUTINE 


s*ERROR IS TO BE REPORTED. 11 THEN OBTAINS, FROM THE “ERROR TABLE’ (SERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
001167 TYPE ae RETURN’ & “LINE FEED" 
PICKUP THE ITEM INDEX 


:1F ITEM NUMBER IS ZERO, JUST 
:iTYPE THE PC OF THE ERROR 
SERRPC ,-(SP) 7:SAVE SERRPC FOR TYPEOUT 
oy ADDRESS 
—_— ASCIICALL DIGITS) 


; ADJUST THE INDEX SO THAT IT WILL 
ze WORK FOR THE ERROR TABLE 


, SCRLF 
RO,-(SP) 

RO 
a#S1TERB,RO 
1$ 


001114 
015014 


015016 
015022 


001116 


RO 
#SERRTB RO 


:3FORM TABLE POINTER 
o_o 


:sPICKUP “ERROR MESSAGE*’ iP werk 


SzSCFETES 


te ee dk ad et et etd 
SSSz 

a be) 

Le *) 


SCRLF GE R in F 
(RO)+ 48 ICKUP SATA HEADER"’ POINTER 
5$ a3 SKIP TYPEOUT g 0 
23 TYPE THE POAT HEADER’ 


23° DAT a HEADER’ POINTER GOES HERE 


0 

- SCRLF 
(RO) ,RO 
7$ 


(SP)+,RO 

- SCRLF 

PC 
a(RO)+,-(SP) 


(RO) 
$ 


CARRIAGE RETURN’ & “LINE FEED" 
3;PICKUP “DATA TABLE*’ POINTER 
33:60 TYPE THE DATA 

;sRESTORE RO 

es RETURN’ & “LINE FEED"’ 


a @(RO)+ FOR TYPEOUT 
:G0 TYPE--OCTAL ap he DIGITS) 
>1S THERE ANOTHER NUMBER? 


BR F NO 
TYPE TWO(2) SPACES 
3;;L00 
3:TWO(2) SPACES 


015130 


a 
SSNSSENNSERS 


-SBTTL TYPE ROUTINE 


ppeeeererererrerererereeerrereereeeeeeeeeeeeeeeeeeeeeeeeeeAeeeEee 
: *ROUT INE TO TYPE ASCIZ —— oe ty TERMINATE WITH AO 8B 
sete ROUTINE WILL INSERT A NUMB L CHARACTERS AFTER A LI Ne FEED. 

*NOTE1: SNULL E USED AS THE FILLER CHARACTER. 
‘ #NOTE2: F FILLER CHARACTERS REQUIRED. 
:*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
ie 


7 *CALL: 
3*#1) USING A TRAP eh aaa 


td TYPE »MESAD 7:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
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PPAAAAMAAI 


oooooooceoocoeoo 
PRIRIRIRIRIRIAI RY at et et tt ce ced cd et ed et ot ot 


000002 
000011 
000200 


015350 
015304 


105737 001157 : STPFLG 
10000 B 1$ 


3$ 
RO,-(SP) 
@2(SP),RO 
(RO)+,-(SP) 
4% 

(SP)+ 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 
8$ 
#CRLF , (SP) 
5$ 


(SP)+ 


SCHARCNT 
2s 
PC, ,STYPEC 


cel gee A TERMINAL? 
IM WEE IF NO TERMINAL 


VE RO 
:3GeT ADDRESS OF ASCIZ STRING 
H CHARACTER TO BE TYPED ONTO STACK 
R IF IT ISN'T THE TERMINATOR 
RMINATOR POP IT OFF THE STACK 


> RESTORE R 

ae RETURN PC 
;;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


:;POP <CR><LF> EQUIV 
3; TYPE A CR AND LF 


::CLEAR CHARACTER COUNT 
;:GET NEXT CHARACTER 
ar TYPE THIS CHARACTER 
71S IT TIME FOR 4 ee CHARS.? 


001156 ate. 
001154 SNULL ,-(SP) 
000001 : 1(SP) 

6$ 


015304 PC ,STYPEC 
015350 SCHARCNT 
BR 7$ 


:1f NO GO GET NEXT C 
GET # OF FILLER CHARS. “WEEDED 
::AND THE NULL CHAR. 
;:DOES A NULL NEED TO BE TYPED? 
::BR IF at ee THE NULL OFF OF STACK 
$3 TYPE A 
NOT COUNT As A COUNT 


ttt at tt at at os ss as 
PAAAAAAAARMAAI 


PUSNS eeSeeSenaeeeerysresy 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


—_ 
w 
Nm 
~ 
i=) 


HORIZONTAL TAB PROCESSOR 
8$: ; REPLACE boy WITH SPACE 
9$: CE 


: 7: TYPE A SPA 
015350 a, - SCHARCNT hregey NOT AT 


73 TAB S 
hey ::POP SPACE OFF STACK 


BR ;;GET NEXT CHARACTER 
163640 STYPEC: 7 pee ;:WAIT UNTIL PRINTER IS READY 
000002 163632 MOVB 2(SP) ,aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 + aaa 3321S ee Pe A CARRIAGE RETURN? 


Hi H IF 
015350 SCHARCNT + YESw-CLEAR CHARACTER COUNT 
STYPEX X1T 


000012 000002 1$: #LF ,2(SP) 31S CHARACTER A LINE FEED? 
STYPEX ;:BRANCH IF YES 
INCB (PC)+ :;COUNT THE CHARACTER 
SCHARCNT:.WORD 0 : CHARACTER COUNT STORAGE 


$s Mmrnrry 
SEES TA ESS £3 
Soros nvoeo 
SeNTSSSSSKEx 
SVEALINGNAY 
$ NNNNN Nw 
NWS NUYS OMAN 


3 
SES 


Sx 
™~ 
Ow 
oneness 
ONO 
o~nnN 


Sooooooooooooooofo 
$F 


kt tk et et td et ot 
PUD DPUDPUPUPUPUDPUDUS PUPP AAS 


iv.) 

wa 

oo ses 
o— 
oo 
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015352 000207 STYPEX: RTS PC 


~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


PPP i iii iii iiiiiiiiiiiiiic) 

 aTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

>*OCTAL (ASCI1) NUMBER AND TYPE IT. 

:*$T ete atoms HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
L 


NUM ,- (SP) > NUMBER TO BE TYPED 
:;CALL_FOR TYPEOUT 
; :N=1 M4 3 FOR NUMBER OF DIGITS TO TYPE 


‘ 32 1=TYPE LEADING ZEROS 
;0=SUPPRESS LEADING ZEROS 


7 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*S$TYPOS OR STYPOC 

> *CALL: 

;* MOV NUM ,-(SP) > NUMBER TO BE TYPED 

; ON 3;CALL FOR TYPEOUT 


-f 
2 rh coms HERE FOR TYPEOUT OF A 16 BIT NUMBER 
> *CALL: 

se MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
ed 7;CALL FOR TYPEOUT 


$TYPOS: @(SP) ,-(SP) :;PICKUP THE MODE 
1(SP) ,SOFILL + LOAD ZERO FILL SWITCH 
(SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
+ Tl a ;;ADJUST RETURN ADDRESS 


BR Y 
$TYPOC: #1, SOF ILL ::SET THE ZERO FILL SWITCH 
MO #6, SOMODE +1 2:SET FOR S1X(6) DIGITS 
STYPON: #5, S0CNT +3SET THE ITERATION COUNT 
MO R3,-(SP) ; E R3 
R4,-(SP) 
R5,-(SP) 7: SAVE RS 
dado 33GET THE NUMBER OF DIGITS TO TYPE 


#6,R4 ft ie U FOR MAX. ALLOWED 

R4 , SOMODE sSAVE_IT FOR USE 

SOFILL.R4 i3GET THE ERO FILL SWITCH 

12(SP),R5 ::PICKUP_ THE INPUT NUMBER 

R3 :;CLEAR THE OUTPUT WORD 
:;ROTATE MSB INTO ‘'C’ 


::60 DO MSB 
:;FORM THIS DIGIT 


—=—O00 — -— -s 


oS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
15 
1 


— 
see 
a 
Ss 
So 
ww 


Sases 

—— 

=] . 
et oe es 

o—wuooooo 

WH NUM 


: R R3 GET LSB OF THIS DIGIT 
015600 4 :iTyPe THIS DIGIT? 


7 NO 
177770 #177770,R3 ::GET RID OF JUNK 


So 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
015 
0 
0 
0 
0 
0 
0 
0 


— —s 2 oOo oS oo 
ARUN=SSRLESFESS 


PEPEHsMPN—sNMongnshonsnsnrshoroty 


o—-— 
= 
Nm 
~N 
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™m 
—_ 
—_ 
o 


7; TEST FOR 0 

3; SUPPRESS THIS 0? 

:7BR IF YES 

;:DON'T SUPPRESS ANYMORE 0°S 
::MAKE THIS DIGIT ASCII 
3;MAKE ASCII IF NOT ALREADY 
3;SAVE FOR TYPING 

2:60 TYPE THIS DIGIT 

:;COUNT BY 1 

:2BR if MORE TO DO 


3;BR IF DONE 

3 3 INSURE LAST DIGIT al T A BLANK 
:G0 DO THE LAST DIGIT 

33 TORE RS 


> RESTORE R4 
7 RESTORE R3 
000002 000004 8 4g -4 (SP) 3:SET THE STACK FOR RETURNING 
. 


PAPAIN 
POR st ot or ws 
Foe fnNo 


FS¥s 


MMRNININI NPP Re foforfnofnnfrernr 


9933 fe eee eee 
AAW AA MNNNNRNNNN = — 
FUNASSRBUFAFUNSSSRVSRRONLS San 


3; RETURN 
3;STORAGE FOR ASCII DIGIT 
3; TERMINATOR FOR TYPE ROUTINE 
;;OCTAL DIGIT COUNTER 
: ZERO FILL SWITCH 
: .WORD 0 ;NUMBER OF DIGITS TO TYPE 
.SBTIL RANDOM NUMBER GENERATOR ROUTINE 


oCOooooooooooooooocoococooco 
a a tt a a ss es ss as ss ss se 
Abesbsbsbesh aba sh ab vah ah ah eah ah ah ah al 

pot ae ak ot os ot 9 

NNN 

NOWUENMON 


So 
ort 
w 
eo 
s 


SRRHARHAAKA EKA KHKE THAT eHKeeeKeeeHkeKeKeeeeKeeeeeeeeeeeeeereee 


SeTHIS ROUTINE IS A DOUBLE ~~ ‘gee PSEUDO RANDOM NUMBER GENERATOR 
s*W1TH A RANGE OF 0 TO 2(+33)-1 


PC, $RAND 3:CALL THE ROUTINE 
RETURN 3 RETURN HERE THE RANDOM 
7 :NUMBER WILL BE IN 
3: SHINUM, SLONUM 


— s.r 
Serr 
oOnow 


RO,-(SP) ;;PUSH RO ON STACK 
: PUSH R1 ON STACK 


ooooo°o 
RUKsss 


15702 
15700 
77771 


LEFT AND 
ROTATE CARRY INTO R1 AND 
CHECK FOR DONE 
1$ :;CONTINUE SHIFT LOOP 
015702 SLONUM , RO :;ADD NUMBER TO MAKE X 129 
R1 ; sPROPOGATE CARRY 
015700 SHINUM,R1 ADD NUMBER TO itace xX 129 
001057 -+ tae 33 ADD LOW ‘ys 


;PROPOGATE CAR 
047401 #47603 ,R1 ADD HIGH CONSTANT 
015702 is SAVE RO 


015700 VE RI 
::POP STACK INTO R2 
(SP)*.R1 ;:POP STACK INTO R1 


$s 


SoseoeoS 
SllsSane 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


Sa SES ESESE SE oun 
NOOO OPOOSS MMM Nnwnnww 
VSSELSSFSRISSSVSVFALLS 
oooooooooosoossossssssc 

w w ww 


oooo 
Re A 
=—NNNS = 
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015674 012600 ROV (SP)+,RO : sPOP STACK INTO RO 
6 7 TS PC URN 


00020 R 33 
176543 : .WORD 176543 
123456 : .WORD 123456 

TRAP DECODER 


CITI titi iii titi ii iiiiiiiiiiiiiiiiitiit, 
:eTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
>*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) 
000002 


CKUP BY 
r3GET RIGHT BYTE OF TRAP 
R sPOSITION FOR INDEXING 
015740 STRPAD(RO),RO 3; INDEX TO TABLE 
RO ::G0 TO ROUTINE 


ooooooo 
et at ot ot ot 
MAMAN 
SANS 


RSSENER 


::THIS IS USE TO HANDLE THE ''GETPRI'’ MACRO 


011646 $TRAP2: MOV (SP) ,-(SP) ;;MOVE THE PC DOWN 
016666 000004 000002 MOV 4(SP) ,2(SP) ::MOVE THE PSW DOWN 
000002 RT] ; RESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUT INE 


STRPAD: .WORD STRAP2 
& :;CALL=TYPE TRAP#1(104401) TTY TYPEOUT ROUTINE 
;;CALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
3; CALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 
;;CALL=TYPON TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS TRAP*+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


BLFARANLESELESLASLS sare 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


SROCHR ;;CALL=ROCHR TRAP+6( 104406) we he ti CHARACTER ROUTINE 
SROLIN et TRAP+7(104407) TYPEIN STRING ROUTINE 
$SRDOCT ;;CALL=RDOCT TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 

.SBTTL POWER DOWN AND UP ROUTINES 


ee ote o-oo leks near ber ti 
OWER DOWN ROUTINE 

016122 000024 iPURDN: MOV #SILLUP ,a#PWRVEC Fh FOR FAST UP 

000340 000026 MO #340, asPURVEC+2 73PRIO:7 
RO, -(SP) : PUSH RO ON STACK 
R1,-(SP) 
Re,-(SP) 
R3,-(SP) 53 
R4,-(SP) ;;PUSH R4& ON STACK 


NMrnrmnmnNry 
MMrrrwmnWwr 
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R5,-(SP) 3;PUSH R5 ON STACK 
@SUR ,- (SP) 2 PUSH @SWR ON STACK 
SP ,SSAVR6 :;SAVE SP 

#SPURUP ,A#PWRVEC ;;SET UP VECTOR 


72 HANG UP 


WUD = ot 
NSnrano 


, teeeeeeerrererrerrereerererrererrereerenereeeaneekererereererese 
POWER UP ROUTINE 
000024 $PwRUP: SSILLUP ,a#PURVEC ;:SET FOR FAST DOWN 
SSAVR6, SP 3:GET SP 
SSAVRO ::WAIT LOOP FOR THE TTY 
1$: SSAVRO S:WAIT FOR THE INC 
1$ -:0F WORD 


(SP)+ ,@SwR 

(SP)4¢,R5 

(SP)+,R4 

(SP)+,R3 

(SP)+,R2 

caret R1 

(SP)+,RO ::POP STACK INTO RO 
015762 000024 #SPURDN asPWRVEC :gSet ve THE POWER DOWN VECTOR 
000340 000026 MOV #340 ,a#PURVEC+2 eee 

T hePoRT THE POWER FAILURE 

SPWRAG : Z SPOWER POWER FAIL MESSAGE POINTER 


T 
SILLUP: 3: TME POWER UP SEQUENCE WAS STARTED 
B ‘ 3: BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 7:PUT THE SP HERE 
047520 042527 S$POWER: .ASCIZ <15><12>*°POWER"’ 


sEEEEEE 


Baas 


ocooocoocecoo 
CFNOSO 


et ns at oe td a ws 


oo 
pee 
$333 


-EVEN 
RETRY: .WORD 0 


; THIS TEXT JS THE SOURCE OF THE CHARACTERS TO BE Soe IN THE MESSAGE 
; AREA "BUFFER FOR THE DIRECT CURSOR ADDRESSING TEST (E). 

; THE BUFFER 1S 2000. CHARS. LONG FOR TEST ‘E’’ AND SHOULD BE TERMINATED 
; BY 3 OR 4 ‘'577°""S AS A TERMINATOR. 


BEX 


he tte segment leet et rat 
\TAL EQUI PRENT-CORP.-MERRIMACK-N.H.-M7142-\ 
\R7143=DIRECT=CURSOR-ADDRESSING-TEST-D1G]\ 
\TAL~EQUIPRENT CORP. “MERRIMACK -N.H.-M7142-\ 
\nrlee-DIRECT-CURSOR-ADDRESSINC~iEST-DIGI 
\TAL EQUI PRENT-CORP.-MERRIMACK-N.H.-M7142-\ 
\A714 DIRECT=CURSOR-ADDRESSING-TEST_D161\ 
\TAL~EQUIPRENT-CORP . “MERRIMAC. ON 7142-\ 

\A714 “DIRECT -CURSOA-ADDREGSING-TEST-DIGI\ 


ROS F UVPONO Fe 
_ ~~ Pw 
SRF RUGASAw 


ee ee ee ee ee ce ed et ed ed et 
ye 
-—-oonne 


SOoooooooooCoo°o“eo°oo 
PEPE MEMEMEMEN 


AJNNNO Oo 
n= ON 


PRENT-CORP.-MERR] 
\M7142-DIRECT=CURSOR-ADDRESSING-TEST=D1G1\ 
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~ 


LEB EEE PPP PEP PRP BPR PPR PAPA PAP PAPA PRP PP PPP Pe Ph 
ee ce ce ec ce ce ee ce et ee ee ce etd ed eed 
— Ne Ne Ne ee ee ee ee ee ee ee ee ee ee ee ee eee ae ae ee ee ae a ee es es 


2268 
2269 


09-JAN-79 


Newt 


PASM AEDES NEWSE 
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MSGIND: . 
BUFFER: . 


AND UP ROUTINES 


\TAL~EQUI PRENT-CORP .-MERRIMACK-N.H.-M7142-\ 
\A7142-DIRECT=CURSOR-ADDRESSING-TEST-D1GI\ 
\T Pet -CORP .-MERRIMACK-N 7142-\ 
\A714 “DIRECT -CURSOR-ADDRESSING-TEST-DIGI\ 
\T aM tts: NT-CORP .-RERRIMACK-N.H.-A7142-\ 
phe wapliun tae -aeeieinn a are 


\TAL~EQUI PRENT-CORP . -MERRIMACK-N.H.-A7142-\ 
\A7142-DIRECT=CURSOR-ADDRESSING-TEST-D1 GI\ 

\TALEQUI PRENT-CORP . -MERRIMACK-N.H.-A7142-\ 
Waal ae 61] . 


\TAL~EQUI PRENT-CORP . -MERRIMACK-N.H.-A7142-\ 
\n7ie2-DLRECT-cURSOR-ADDRESS NG wn ck 


\TAL-EQU1PRENT-C 
\M7142-DIRECT=CURSOR-ADDRESSING-TEST-D1GI\ 
\TAL EQUI PRENT-CORP . -MERRIMACK-N.H.-M7142-\ 
\A7 T43-DIRECT-CURSORCADDRESSING-TEST-DIGI\ 
\TAL-EQUI PRENT=-CORP .-MERRIMACK-N.H.-A7142-\ 
\A7142-DIRECT-CURSOR-ADDRESSING-TEST-D1G1\ 
\TAL~EQUI PRENT=-CORP .-MERRIMACK-N.H.-M7142-\ 
\M7142-DIRECT-CURSOR-ADDRESSING-TEST-D1G1\ 
\TAL~EQUIPRENT=-CORP. -MERRIMACK-N.H.-M7142-\ 
\A7142-DIRECT=CURSOR-ADDRESSING-TEST-0161\ 
\TAL~EQUIPRENT-CORP.-MERRIMACK-N.H.-M7142-\ 
AAT 142-DIRECT-CURSOR-ADDRESSINGWiES1-01 G1\ 
\TA UIPRENT- » “MERRIMACK-N.H.-M7142-\ 
\N7163-DIRECT-CURSOR-ADDRESSING-TEST“DIGI\ 
\TAL~EQUIPRENT-CO\ 

4 377,377,377 


1010. 


SEQ 0048 


K 4 
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& 003460 11054 

ADELAY 005266 824 903 945 1016 1045 1172 1215 14968 

AMSG 005340 822 825 837 856 879 901 904 943 & 1014 1017 1019 1022 
1025 1028 1031 1034 1043 1046 1055 1068 1078 1105 1108 1113 1118 
1123 1128 1134 1213 1216 1219 1224 1229 1234 1239 1245 1248 1251 
1¢26 1259 1262 1266 1269 1275 1285 1315 1358 1374 1471 1514#@ 81548 

ANESC 005170 1445* 1447* 14648 

ATTRS 011366 1472 17388 

ATTRE = =011242 1378 17384 

AXOFF 005162 14618 

At 004062 12134 

8 003502 11124 

BEGIN 001274 595 7178 

BEGINI 001340 597 7268 

BEGIN2 001360 598 7304 

BEGINS 001330 599 7244 

BEGING 001350 600 7288 

BFCHAR 004542 1302 13394 

BFCHR 004504 1296 1302 13214 

BITO = 000001 5574 1382 1608 1622 

B1100 = 000001 5474 557 

B1T01 = 000002 5468 556 

B1T02 = 000004 5454 555 

B1T03 = 000010 5448 554 

B1104 = 000020 5434 553 

B1T05 = 000040 5428 552 

B1T06 = 000100 5414 551 

B1T07 = 000200 5404 550 

B1T08 = 000400 5394 549 1897 

B1T09 = 001000 5384 548 

BiT1_ = 000002 5564 1606 

B1T19 = 002000 537# 1100 

B1T11 = 004000 5 

B1T12 = 010000 5354 1482 

B1T135 = 020000 5348 1929 

B1T14 = 040000 5334 1883 

B1T15 = 100000 5324 

BIT2 = 000004 555#@ 1603 

B1T3 = 000010 5548 

B114 = 000020 5534 

BITS = 000040 5524 

BIT6 = 000100 5514 

B1T7 = 000200 5504 1384 1605 1610 1626 1630 

BIT8 = 000400 549m 

BIT9 = 001000 5484 774 1865 

BLKPRT 005174 1021 1024 1027 1030 1033 14708 

BPTVEC= 000014 564m 

BUFFER 022066 907 914 921 948+ 949 954 959 970 989* 990 991" 1406 1418 
Ve 1728 22684 

B1 004116 12234 

003516 11174 
CHRATT 004644 728 1374# 1397 
= 000015 472# 2052 2062 
CRLF = 000200 4738 2023 2062 
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12458 
DCATST 002546 9518 
SP = 177570 4798 = 639756 
DELAY 005214 827 848i BOS, 870s BBD—iBHGs—“‘<ié‘éiT!:SCitiCNDi(itiHC(iti«éSs«108H—S—s«i1070—S—«*089 
1094 1396 14808 
DH} §=—012024 675 17388 
DHS. «= 012053 688 ©1738 
DIGO 005450 1290 15408 15438 1571 1583 - 
DIG) 005452 1291 1533e 154a# 1572 1584 
DIG2 005454 1292 1526 15458 1573 «1585 
DISPCH 003576 11378 
DISPLA 001142 6398 = 756* «= 764* «1904 19248 
DISPRE 000174 5928 764 
DSWR = 177570 4788 = 638 
O11 = 012122 676 17388 
O13 = 012132 689 ©1738 
é 004230 12568 
EMTVEC= 000030 S678 743® 7448 
EM] 011665 674 = «17388 
EM2 = 011732 680 17388 
EMS = 011761 687-1738" 
ERCHR 012434 17388 
ERRVEC= 000004 560# 753.0 754 «= 765* «= «188B_=— 1889* §«=«1BG1*# «=—«:18 948 
F 260 12668 
FILBFA 004774 14098 1411 
FILBFB 0047 14068 
F 004754 840 861 1050 14058 
FILLWC 002122 8390 . 
FIRST 001222 6928 «= 781" ' 782 «= 784 S798 
FRMFED 011205 823 902,——s«4hSi«101S- «10044 Ss*1214—Ss«*: 738 
GENER 002616 9618 965 967 988 995 
GEWRX 002702 972 9768 980 
GETCHR 006334 1287 1361S «1550* 1706" 
GIN 366 723.725 2 7318 
GINA 001374 720 47320 
GNS = eeeeee Y 591 2207 2208 2209 2210 2211 2214 «= 2215S 2216 
HT = 000011 4708 2021 2062 
5172 767# 1314" 1454" 14658 
INSTR 012455 17388 
INVLID 010303 796 «17388 
1OTVEC= 000020 565# 7hl® «= 742" = 769 
302 12758 
KRBECH 004606 724 13578 
KRBECO 004316 730 «=: 12B4a 
KRBTST 004052 726 1211#=—«1277 
LAST 001224 6940 «= 785* «= 789" «= 790,-Ss«1161—Ss«*11163 
LASTCH 001264 711# = B20" = B6B.isiB9ZSs«dNK 
LASTLN 001236 700# =—-B148 é 
LF = 000012 471# 2056 
LIC 005010 4 1084 14180 
LICA 005026 14228 1428 
LICB 044 1425 14278 
5154 768* 14588 1867 
MASK 005712 15978 1601" 1605* 1613 
MASK2 005714 1580 1598# 1602 1610" 1612 1626" 1630+ 
MBKSP 012654 915 1738s 
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Se 


1260 1270 17388 


owns SrSrSos 
NWO NWS INO OLS OL OO 
NNN ToN~ 
WANE WANG 
..- - 


sess 8 
Ny NNNNYYNS 
P+ > Pay t+ 4 
RBRmee 


WW — Oo O 
o 
w 


mo 
9 
— et at at ot ot ot od tt ss 


= 
é 


1312* 861313" 17388 


RIAA RR IR —* HNP es 


w 

woo 

soowoe 
2. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ooooo 


Sooooooooo0coo 


ae 

—s 

38 2 

uo NMNRNO~WUTP 


Sse 
: 


ES: 


$8823 
SSees. 


1570 1582 


3 
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994" 10034 
16014 
17388 


719 1201 1203* 


2221* 2222* 2231" 2237 2249% 2250+ 


Oe ed et et ed ed 

Ne tones = 
—Onm $ 
fNusro 


SNASSSSNEE 


1206 


Ss 


10024 


0 
0 
0 
0 
0 
0 
0 
00 
00 
00 
01 
01 
00 
01 
01 


— oes 
a eh hod 


Nm 


1284 1357 


so 
STACK = 00 
868 881+ 883 891* 892 1048* 1049 1052* 1053 


STCHAR 00126 
STKLMT= 177774 


763 774 1100 1482 1603 1606 1608 1622 1865 
1934 2229 22428 


Mannan 

oOow 
Wt Wo~nowo 4 
RRRER 
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866* 882+ 1058" 1071" 1081* 


005456 1125. 1130 | 1261-1271 
002112 71 8358 1166 
00 


vTI6 254 
vTIs 001252 
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VFWNRO INWOOD 


ee eh a a ee a ee a 
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Nm 
So 
la 
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801 1163 1165* 


1448¢ 
1435 


728* 


20598 
749 


1922 


1928 


ae 


1738 
1557* 
1437 1558 


730+ 828 8298 1166 


1051 1086 


750 


1971 1976 1980 


21748 


1204¢ 


14348 


2027 


1517 


2062 
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10384 10744 1096 12078 12808 13538 13698 
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1377* §=1390* 
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932 
12848 


STRAP2 
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22108 
1899 
18058 


605 
18054 


22118 22128 
1901* 1904 


20498 


21388 


6068 6088 6108 
1806 1812 1865 


22178 
1943 


2214 22158 22168 
1907 1921 1924 


1197 1201 
2255 


6178 655 738 750 
1907 1943 1990# 2062 2233 
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11498 
i 


897 932 1009 1038 1074 1096 1207 1280 1353 1369 


875 
2211 2214 2215 2216 
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-SERRT iL 4528 1944 
- SAULT a 

- SPARA 4528 

- SPOWE 4 452@ 2217 
- SRAND # 4528 2140 
- SRODE is 

- $RDOC a 4528 = 1812 
- SREAD ls 452a 8 =1738 
- SR2AZ iL 

- SSAVE a 4528 

-$S82D la 

-$S820 lf 

-$SCOP is 4524 1870 
-$SIZE ls 

- SSPAC 4528 

- SSUPR iL 

-$SWd0 4528 

- STRAP 452# 2176 
-STYPB ls 

-STYPD “a 4524 1636 
-STYPE a 452 1992 
-STYPO ls 4524 2063 
$40CA la 

-1170 la 


- ABS. 026032 000 


ERRORS DETECTED: 0 


CZVTOA/1 ,CZVTOA. SEQ/CRF /SOL=CZVTOA.SML,CZVTOA.P11 
RUN-TIME: 14 11 .8 SECONDS 

RUN-TIME RATIO: 30/26=1.1 

CORE USED: 32K (63 PAGES) 


